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Your mind is the ultimate weapon in this unique war game. 
Strategy, not force, is the key to victory as you move your battalion through a 
series of testing skirmishes and battle actions. Your ability to command, to give 
orders, to move your troops skillfully determines the success of your assault 
Å and combat operations. Operation Whirlwind requires the concentration of 
chess—a typical game may take between one and three hours—and the 
ability to master the 
many tactics of wag- 
ing a full scale war. 
How well you can 
focus your strategic 
energies will decide 
whether your vic- 
tory is Question- 
able, ш 
ER SON m Tactical, Strategic or 
LIRE TAS UNET a Breakthrough. A 
D Т great game for the 
= thinking game player. 
Available on disk. 


Pit your concentration against 
another player or the computer. Here’s a puzzle game that 
will keep the whole family bemused, befuddled and play- 
ing happily for hours. A grid of 36 numbered boxes con- 
ceals an animated menagerie of colorful characters, 
creatures and objects. The object of the game is to match 
identical squares and then solve a hidden word puzzle. 
There are many game variations with puzzles that are 
frontward, backward, or scrambled. Matchboxes. It’s the 
most memorable memory game you've ever played! 
Available on disk and cassette.* 

OPERATION WHIRLWIND AND MATCHBOXES ARE 
AVAILABLE FOR THE COMMODORE 64 AND ATARI 
HOME COMPUTERS. COMMODORE 64 and АТАН! are trademarks of Atari, Inc., and 


Commodore Electronics, Ltd., respectively. 
*Cassette on Atari computers only. 


er Broderbund Software 


Discover the Difference 


17 Paul Drive San Rafael, CA 94903 


These are the hands of a 
master f ypist. ............. 


MasterType—the best-selling program that 
turns learning into child's play. 

Given the choice of learning a skill or playing a 
game, most kids go for the game. 

So how has Masterlype" gotten so many 
young kids to sit still long enough to learn to type? 

By being fun. By bringing the fast action of 
video games to each of Masterlype's lesson 
program segments. 

Kids get so caught up in zapping spaceships, 
they hardly realize they've mastered the keyboard. 

Warning: Parents like it, too. And may find 
themselves unwittingly becoming expert typists 
before they know it. 


Disks: Apple? Atari; Commodore 64° $39.95 
IBM-PC $49.95 
Cartridges: Atari; Commodore 64° $39.95 


Try the other programs in the Scarborough 
System— Songwriter; PictureWriter; Phi Beta 
Filer” PatternMaker" and Runforthe Money: All 
Scarborough software utilizes your computer's 
capabilities to the fullest. And perhaps more 
importantly, all are easy to use. 
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Apple, IBM and Atari are registered trademarks of Apple Computer Inc., International 
Business Machines Corp. and Atari, Inc. respectively. Commodore 64 is a trademark of 
Commodore Electronics Limited. 


The Scarborou 


6 Scarborough Systems, Inc., 25 N.Broadway, Tarrytown, New York 10591 


gh System. 


O EDIE ERI EIS UTD REDA OAT GIRIT PONTOS YE SIN > 


| YOU'LL BUY LOTS OF SPINNAKER GAMES. 


And not just because they're educational, but also because they happen 
to be a lot of fun to play. 

In fact, they're so much fun, parents have been known to sneak in a 
few hours of play when the kids are asleep. 

After all, if your kids are actually enjoying a learning game, there must 
be something to it. And there is: Fun, excitement and real educational 
value. That's what sets Spinnaker games apart from all the rest. And 
what brings parents back for more. 

We offer a wide range of learning games for a wide range of age groups: 
З to 14. One look at these two pages will show you how we carefully 
designed our line of learning games to grow right along with your child. 

So if you're looking for a line of learning games that are as much fun to 
play as they are to buy, consider Spinnaker Games. They're compatible 
with Apple, Atari, IBM PC, PCjr, Commodore 64, Coleco Adam and parents 
who don't mind their kids having fun while they learn. 


\ KIDWRITER™ lets kids 
make their own storybook. 
Ages 6 to 10. 

KIDWRITER gives children a 
unique new format for creating 


kids make colorful scenes, then 
add their own story lines. It's as 
versatile and exciting as your 
child's imagination! 

Best of all, while it encourages 
children to create word and pic- 
ture stories, it also introduces 
them to the fundamentals of 
word processing. KIDWRITER 
will bring out the storyteller in 
your children—and in you! 


theirownstories. With KIDWRITER, 


| 
| | 
| 
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A trip through ALPHABET ZOO™ 
Ages 3 to 8. 

It's a race. It's a chase. It's 
Alphabet Zoo, a game that sends 
your kids zipping through the 
maze, after letters that fit the 
picture on the screen. 

Your kids will have fun learning 
the relationship of letters and 
sounds, and sharpening their 
spelling skills. They'll be laughing 
at every turn. 


Apple and Atari are registered trademarks of Apple Computer, Inc. and Atari, Inc. respectively. IBM PC and PCjr, Commodore 64 and Coleco Adam are trademarks of International Business Machines Corp.. Commodore 


Electronics Ltd. and Coleco Industries respectively, © 1984 Spinnaker Software Corp. All rights reserved. 


PARENTS, YOU WON'T 


SPINNAKER GAME. 


FRACTION FEVER™ brings 
fractions into play. 
Ages 7 to Adult. 

FRACTION FEVER is a fast-paced 
arcade game that challenges a 
child's understanding of fractions. 
As kids race across the screen in 
search of the assigned fraction, 
they're actually learning what a 
fraction is and about relationships 
between fractions. 

All in all, FRACTION FEVER 
encourages kids to learn as much 
as they can about fractions— just 
for the fun of it! 
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DELTA DRAWING™ Have fun 
creating pictures and computer 
programs. 

Ages 4 to Adult. 

Kids love to draw. And DELTA 
DRAWING Learning Program lets 
them enjoy creative drawing and 
coloring while they learn com- 
puter programming concepts. 

With DELTA DRAWING, even 
kids who have never used a com- 
puter before can learn to write 
programs and build an under- 
standing of procedural thinking. 
It's easy, clear, and lots of fun! 


FACEMAKER™ makes faces fun. 
Ages 3 to 8. 

ҒАСЕМАКЕН lets children 
create their own funny faces on 
the screen, then make them do 
all kinds of neat things: wink, 
smile, wiggle their ears, and more. 

Plus, FACEMAKER helps famil- 
iarize children with such com- 
puter fundamentals as menus, 
cursors, simple programs, and 
graphics.FACEMAKER won't 
make parents frown because their 
children will have fun making 
friends with the computer. 


Disks for: Apple, Atari, IBM PC and PCjr, Commodore 64. 
Cartridges for: Atari, IBM PCjr, Commodore 64, Coleco Adam. 
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We make learning fun. 


It was as peaceful а day as New York ever gets, when suddenly the sky went dark and 

а monstrous droning noise filled the air. Hordes of grotesque aliens were swooping down from 
all sides, biting into the Big Apple as if they hadn't eaten for days. They were laying eggs, too. 
Horrible slimy things that got down into the subway tunnels and began clawing their way up. 

If anyone was going to save the city, it would have to be me. | leapt into my rocket and 

began blasting away. I thought | stood a fighting chance, but fuel's running low... another wave 
of invaders on the horizon... signing off... 


SAVE NEW YORK." For the Commodore 64. 
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GAZETTE On Disk! 


Last issue, we announced that 
we would be beginning a sub- 
scription service through which 
you could receive a monthly 
disk containing all significant 
programs from each issue of 
COMPUTE!’s GAZETTE. We prom- 
ised full details in this issue, and 
here they are. We've revised it a 
bit from the structure that we 
briefly outlined in our February 
issue. 

Rather than begin the pro- 
gram by actually extending your 
GAZETTE subscription, we're 
going to treat the GAZETTE Disk 
as a separate entity. Thus, you 
may subscribe to COMPUTE''s 
GAZETTE, for example, and later 
subscribe to COMPUTE!’s GAZETTE 
Disk. You could even subscribe 
to the GAZETTE Disk alone, but 
best make sure you can get your 
hands on a copy of that month’s 
issue of the GAZETTE. All of the 
article text and explanations will 
still appear only in the magazine. 
The goal of GAZETTE Disk is to 
free you from the time and 
energy necessary to type all of 
these programs in every month. 
And the disk should save you 
debugging time as well. 

Here’s the information 
you'll need to begin your charter 
subscription to COMPUTE''s 
GAZETTE Disk: 


The disk service will begin with 
the May or June issue of the 
GAZETTE. The logistics of getting 
the service started require that 
these be the earliest possible 
issues. 
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Price for a single issue ordered 
by phone from COMPUTE''s 
GAZETTE is $7.95 plus $1 shipping/ 
handling. 


Price for a six-month subscrip- 
tion is $39.95. 


Price for a twelve-month sub- 
scription is $69.95. 


Each issue of the GAZETTE 
Disk will contain all of the pro- 
grams in the corresponding issue 
of the magazine (with the excep- 
tion of short program examples 
or other programs that are only 
a few lines in length). 

You'll receive each subscrip- 
tion issue by first class mail at 
approximately the same time 
you receive your copy of the 
magazine. If you order a single 
copy disk instead, you'll receive 
it approximately two weeks after 
you place your order. 

Each issue's programs will 
arrive on a first quality disk, 
duplicated and tested to our 
specifications. Charter sub- 
scribers (those who subscribe 
prior to March 30), and those 
who order the first issue of the 
GAZETTE Disk, will receive as a 
bonus the excellent word proc- 
essing program by Charles Bran- 
non that appeared in our January 
1984 issue. 

We're rather excited here 
about the launch of our first disk 
service. You'll save time and 
typing headaches, and we'll be 
delivering the same excellent 
quality in a format you won't 
have to debug. And best of all, 
we've taken an aggressive pricing 


approach that allows us to de- 
liver you a tremendous amount 
of first-rate software, including 
disk and postage, for less than $6 a 
month on a twelve-month basis. 
By the way, you won't need to 
specify whether you have a VIC 
or a 64... each issue will be de- 
signed to have the programs for 
both. 

Enjoy your GAZETTE this 
month, and we'll look forward 
to sending you the first issue of 
the GAZETTE Disk. 


Mat 26 


Editor In Chief 


To reserve your charter disk, 
write to COMPUTE's GAZETTE 
Disk, P.O. Box 5406, 
Greensboro, NC 27403. Indi- 
cate whether you wish to order 
(1) a twelve-month disk sub- 
scription for $69.95, (2) a six- 
month disk subscription for 
$39.95, or (3) a single issue 
for $7.95 plus $1 shipping/ 
handling. Outside the United 
States and Canada, please 
add an additional $3 per in- 
dividual disk ordered for 
shipping/handling. For a six- 
month subscription add an 
additional $18. For a twelve- 
month subscription, an addi- 
tional $36. АП prices are in US 
funds. 


If you could live on half 
Your income, just think what 


the first budget planning 
system that considers all 
your needs. 


Others have done її... 
so can you. 
Dr. Harper Roehm, the author of 
Spending Less and Enjoying It More 
(the McGraw-Hill book that provides 
the basis for this system), designed 
Lifestyle Budgeting when his income 
was cut in half due to a career change 
from corporate auditor to university 
professor. As a result, his family has 
lived comfortably, fulfilling their 
"wants" as well as their "needs" for 
over 20 years. 
We show you "why" 
as well as “how.” 
Lifestyle Budgeting is the first com- 
plete budgeting package to include 
an easy-to-understand book explaining 
the behavioral aspects of successful 
budgeting as well as software to handle 
the mechanics. It takes a practical 
approach, showing you not only how 
you're spending your money, but why 
… S0 you can identify your true priori- 
ties and plan for them. 
Planning is the key. 
Lifestyle Budgeting's software is а 


forecasting and modeling tool, not a СУ 


checkbook balancer. It will track your 
spending patterns, identifying where 
you're wasting valuable funds. Using 
that information, and your family's 
priorities, it will show you specifically 
how to project and plan future costs. 

Little time, and no accounting 

experience required. 

Unlike most budgeting systems, 
Lifestyle Budgeting does not require 
detailed expense records. It will only 
take a couple of nights to set up and 
then only one or two hours a month to 
monitor. Апа... a big plus ... Lifestyle 
Budgeting is written for you, not your 
accountant. 


Use Lifestyle Budgeting on 
your personal computer. 
Since Lifestyle Budgeting is some- 
thing everyone needs, versions are 
available for IBM, Apple, Commodore, 
Atari and Coleco personal computers. 
Get control of your 
money today! 
Lifestyle Budgeting will be available 
through your local computer retailer 
starting in February ... but why wait? 
You can order the complete package 
today. 
Order now! 
Call 1-800-547-1565, 
In Ohio Call 1-515-455-2555. 


Dealer inquiries welcomed. 


Y es! I'd like to know how to set up a 
liveable budget. > 


Please send me 
of Lifestyle Budgeting 
(including the McGraw-Hill 
book Spending Less and 
Enjoying It More, and the 
accompanying software 
and manual) at $49.95 
each plus $3 for shipping 
and handling. (In Ohio add 
6% sales tax.) 


copies 


Name 

Address 

City State Zip 
Type computer Model 


Check or money order enclosed O 


VISA or MasterCard No. 


Expiration Date Bank No. (MasterCard) 


Signature 
Available on diskette only. Allow 4-6 weeks for delivery. 


Return coupon and payment to: 


culverin 


Culverin Corporation, Lifestyle Budgeting 
Р.О. Box 503, Centerville, OH 45459. 
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WordPro 3 Plus™/64 and SpellRight Plus™ provide a total word 


WordPro 3 Plus /64 


The #1 Selling Word Processor for the Commodore 64™ 


processing solution for the Commodore 64" which gives you: 


* Sophisticated Word Processing 

* Built-in Mail Merging for Form Letters 

ж Math Functions for Column Totals 

* Fast and Complete Spell Checking via SpellRight Plus 
* A Super Value (two programs) for Only $99.95! 


WordPro and SpellRight are both specifically designed for the 
novice user with no computer or word processing experience 
whatsoever. And with over 40,000 WordPro versions sold, you 
can be sure that WordPro is a very sophisticated word 
processor loaded with powerful features including: Transfer, 
Insert, Delete, and Rearrange Text, Auto Page Numbering, Math 
Functions, Headers, Footers, Global Search and Replace, the 
Ability to Create Multiple Personalized Letters and Documents, 
and much more. WordPro can create documents of virtually 
any length and will print up to 165 columns wide. You get all of 
thls PLUS fast and complete spell checking using SpellRight 
Plus! 


WordPro 3 Plus™/64 and SpellRight Plus™ are trademarks of Professional Software Inc. 


SpellRight Plus locates and highlights misspelled words and 
then allows you to quickly correct the misspellings — 
improving the quality of your letters and reports. 

And, best of all, WordPro and SpellRight’s powerful arsenal 
of features can be put to use almost immediately — by even 
the novice user. So whether you're a student, professional 
writer, in business, education or a hobbyist, you'll quickly 
become a WordPro Pro! 

Both WordPro and SpellRight Plus are also available separately 
at popular computer outlets nationwide. 


Invest in the best . . .WordPro Plus. In a class by itself. 


Professional Software Inc. 


51 Fremont Street (617) 444-5224 
Needham, MA 02194 Telex: 951579 


Dealer and Distributor inquiries are invited. 


The WordPro Plus Series was designed and written by Steve Punter of Pro-Micro Software Ltd. 
SpellRight Plus was designed and written by Dwight Huff and Joe Spatafora of SpellMaster Systems, Inc. 
Some printers may not support certain WordPro 3 Plus functions and/or require an interface. Please check with your dealer. 


Commodore 64™ is a trademark of Commodore Electronics Ltd. 


EDITORS AND READERS 


Do you have a question or a problem? Have 
you discovered something that could help other 
VIC-20 and Commodore 64 users? Do you have 
a comment about something you've read in 
COMPUTE's GAZETTE? We want to hear from you. 
Write to Gazette Feedback, COMPUTE!’s GAZETTE, 
P.O. Box 5406, Greensboro, NC 27403. 


FE FRE TE Se RA AEE ESE ET N IS) 
Restoring DATA 


I am writing an educational program for my 2⁄2- 
year-old, but I've run into a small problem. I want 
to play a shorttune when a correct answer is given, 
but after running the program once, I get an OUT 
OF DATA error message. My question is this: 
How do I get the program to reread DATA state- 
ments? 

Jeff Nicholas 


When running a program, BASIC uses memory loca- 
tions 63—66 as "data pointers." These pointers act as a 
checklist. Whenever the program READs an item from 
a DATA statement, it also updates the pointers. The 
next READ looks at the next item, based on what is in 
the pointers. If there are more READs than DATA 
items, the computer prints the error message and stops 
the program. 

In answer to your question, the pointers can easily 
be reset with the RESTORE command. This command 
can be placed anywhere within a BASIC program, and 
will reset the pointers to the beginning of the DATA 
items. For example, the following BASIC program 
would continuously READ the first DATA number 
and never get to the second. 

10 READ A: PRINT A: RESTORE: GOTO 10 

20 DATA 1,2,3 

Another command, more drastic than RESTORE, 
is CLR. When a BASIC program sees CLR, it resets the 
data pointers (so you can READ the DATA statements 
again) and all variables are CLeaRed. Numeric variables 
are set to zero and string variables are erased. It also 
clears the variables and pointers for FOR/NEXT loops 
and GOSUB/RETURNSs. 

In addition, anytime you LOAD, RUN, or NEW 
a program, the data pointers are automatically reset. 
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GAZETTE FEEDBACK 


Ihave а Commodore 64 with а 1541 disk drive, 
and have encountered a problem that perhaps 
you can help with. When saving and replacing 
programs on disk, sometimes certain programs 
will replace the wrong programs on disk. For in- 
stance, I SAVEd a program using the save with 
replace command, following the procedures in the 
1541 instruction manual. The program SAVEd 
OK, but it messed up another unrelated program 
on the disk. Is there anything I can do to solve 
this problem other than always maintaining a 
backup disk? What's to stop the same thing hap- 
pening to the backup disk? 

Davin Dahlgren 


We have covered this problem before, but because we 
still receive a large volume of mail about this bug, it's 
worth covering again. 

Creating a backup disk is not the solution to your 
bad saves. The problem is with the save with replace 
(SAVE “@0:filename’’) command itself; it is sometimes 
prone to error. This problem has popped up in Commo- 
dore disk drives throughout the years. Although the 
1540s and 1541s were supposed to have an updated 
DOS that solved this problem, it apparently still exists. 

The answer to your question is simple: Don't use 
the save with replace command. We recommend you 
either scratch (PRINT#15, ‘’SO:filename’’) the old 
program before SAVEing, or SAVE the program using 
a different filename. 


Colorful Sprites 
I recently purchased a Commodore 64. I have 
read the book which comes with the computer. In 
the chapter that deals with sprites, it doesn’t men- 
tion how to change the colors of the sprites. Can 
you tell me how? 4 
I would also like to know how to tell if two 

sprites collide. 

Glenn Yellico 


The memory locations you POKE to change the colors 
of sprites 0 through 7 are addresses 53287 to 53294. 
The POKE values to change colors are 0 through 15, 


What do voice 
synthesizers have 
in common with 
movies? 

They don't make 
them like they 
used to. 

Because now 
there is S.A.M. The 
Software Automatic Mouth” 
The first software-only speech 


synthesizer for Commodore 64, 


Atari and Apple computers. 
Developed by Mark Barton 
of Don't Ask Software, S.A.M. 
is designed to give you all 
the power of conventional 


hardware speech 
devices. Without 
the hardware. 

And without the 
high price. 

S.A.M. is the 
program that 
makes other pro- 
grams talk. Busi- 
ness programs. Educational 
programs. Recreational pro- 
grams, too. 

You can use it in any num- 
ber of useful ways. 

To write instructions that talk. 
Stories that tell themselves. 
And creative new games with 


characters that converse or 
opponents that crack jokes. 

And you can do it all with 
ease. With phonetic or plain 
English input. 

S.A.M. can say anything you 
like, any way you like—you 
choose the pitch, tone, speed 
and inflection. 

If you want, you can even 
choose the voice. 

Here's talking to you, kid. 
(The Apple version includes an 
8-bit digital-to-analog converter 
and audio amplifier on a сага. 
It requires 48K and a speaker. 
The Atari version requires 32K.) 


Say it again, S.A.M. 


Deve eloped by Don’t Ask Computer Software, Inc. 


8295 SouthyLa Cienega Blvd, 


JM 


Inglewood, CA 90301/(213) 215-0529 


Apple i$ a registered trademark of Apple Computer, Irtc.— Atari is a trademark of Atafiplac. 
Commodore 64 is/a trademark of/Commodore Electronics, Ltd. 


corresponding to the 16 colors available оп the 64. Below 
you'll find a chart of some of the more useful sprite 
control memory locations. 

Sprite collision is defined by the Programmer's 
Reference Guide as occurring ^... when a non-zero 
part of a sprite overlaps a non-zero portion of another 
sprite or characters on the screen.” The byte you PEEK 
to detect a sprite-to-sprite collision is 53278. Fora sprite- 
to-background collision, PEEK 53279. 

These bytes normally have a value of zero. The 
eight bits in these memory locations correspond to the 
eight sprites. When a collision is detected, the corre- 
sponding bit is set to 1. The bits will remain set until the 
bytes are PEEKed. Once PEEKed, the bytes are auto- 
matically reset to zero. It should also be noted that sprite 
collisions can occur even if the sprite is off the screen. 


Function Location(s) 
turn on sprite 53269 
sprite data pointers 2040-2047 
sprite color 53287-53294 
expand sprite X 53277 
expand sprite Y 53271 
turnon multicolor 53276 
multicolor one 53285 
multicolor two 53286 
sprite/sprite collision 53278 
sprite/data collision 53279 


For more information on sprite programming and 
what values to POKE into the above locations, consult 
your Programmer's Reference Guide. 


MLX Techniques 


I used MLX to enter a machine language program 
from COMPUTE''s GAZETTE, but I entered the wrong 
ending address. When MLX reached that address, 
it turned off and I could not add any more lines 
to the program. How сап I finish my program? 
Is there any way I can LIST an ML program from 
MLX? 

Roger C. Fitch 


When machine language programs are published in 
COMPUTE!' GAZETTE, the МІХ program can be found 
in the listings section. The short explanatory article 
about MLX (usually found in the gray pages preceding 
the program listings) is very helpful. 

In addition to its main function of entering machine 
language programs, MLX recognizes four commands: 

SHIFT-S (Save) will save a copy of the machine 
language program to tape or disk. 

SHIFT-L (Load) will load a previously saved 
program. 

SHIFT-D (Display) will display the machine lan- 
guage program currently in memory. This is the equiv- 
alent of BASIC's LIST. 

SHIFT-N (New Address) allows you to begin 
typing at a different address. The addresses appear as 
line numbers in the MLX listing. 

If you entered the wrong ending address, use 
SHIFT-S to save what you've typed, then reRUN the 
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MLX program, entering the correct starting and ending 
addresses. You can then use SHIFT-L to load what 
you've already typed. To continue with the listing, use 
SHIET-N to skip ahead to the line number where you 
need to start. Be sure to read the MLX article in this 
issue for more details. 


Musical Power Supplies 
I own а Commodore 64, and I have a question 
about the power supply. When I plug it in, it starts 
to hum. The humming noise seems to get lower 
the longer the machine is on. Is this something I 
should be worried about? Could you please ex- 
plain the noise? 

Todd Blecher 


According to a representative at Commodore, this is 
nothing to be concerned about with either the VIC-20 or 
the 64. It is quite common for small transformers such 
as the one inside your power supply to hum. This is 
caused by the metal plates in the transformer vibrating 
as the 60 cycle per second electric current passes through 
it. You've probably heard the same hum from the trans- 
formers in fluorescent lights. 

The thing to watch out for in all power supplies is 
heat. If your power supply is operating at an excessively 
high temperature, take it back to your dealer and have it 
checked. 


Heat, Humidity, And The 
Computer 


Irecently purchased a Commodore 64, and I have 
two questions. First, I’d like to put the computer 
downstairs where I have room for it, but in the 
summer it gets very muggy and damp down there. 
Is this atmosphere bad for a computer? Second, 
can I use my own tape recorder with my 64 or do 
Ihave to buy the Commodore Datassette? 

Robert Zarriello 


Environment can be an important factor for your com- 
puter. The moist atmosphere you describe could be 
harmful. If the humidity is so high that water condenses 
in the computer casing, it could result in permanent 
damage. 

Extremes of heat and humidity are also enemies of 
tapes and disks. A program saved on a hot day when 
the tape or disk is very flexible might not load properly 
on a cold day when the plastic material used in tapes 
and disks is much stiffer. 

Another thing to watch out for is ventilation. The 
computer and its peripherals should be in a place where 
they are well ventilated and can be kept cool. Also, 
watch out for rooms that are heavily carpeted, especially 
those with wool carpets. The static electricity created as 
you shuffle across the room could bring the computer 
down (lock it up), or it might even permanently damage 
the chips in the computer, or erase data stored on mag- 
netic media. 


?^ HOLQ.L PID 


Great for new users. C64 TUTOR cures 
computerphobia and promotes computer 
iteracy. 

Take it from me, with a little power, the 
possibilities are endless. 

Available for $29.95 at your computer 
dealer. 


Now that you have it, put it to work. Có: 
TUTOR puts you in charge with a Commo 
64 tutorial, screen display editor, sprite edit 
music synthesizer & programmer's calculator. 

Use the tutorial to learn what your 
Commodore 64 can do. And how to do it. 
Create, edit & save one page of letters S 
and/or pictures with the screen display editor. 
Enter sprites from the Commodore Manual. 
Or make up your own. Then edit and save 
them using the sprite editor. Sprite creation is 
quick, and easy. Play music with the music 
synthesizer. Use the programmer's calculator 
to add, subtract, multiply & divide in decimal, 
hexadecimal and binary. Includes AND, OR, 
XOR, Shift and 1's complement functions. 


Comprehensive Software Support, 


2316 Artesia DI. Suite D, 
Redondo Beach, CA 90278 
213, 318-2561 


Yes, you сап use a standard tape cassette recorder 
with the 64 and the VIC-20, but you will need a special 
interface not made by Commodore. You can expect to 
pay between $20 and $30. Contact your local computer 
equipment dealer for information on the available 
interfaces. 

However, we believe that the Datassette is a very 
durable and reliable recorder. 


Crunching To Save Memory 


Occasionally, when I am writing a program, I 
abbreviate BASIC keywords. However, when I 
list the program on my VIC-20, all the keywords 
are displayed full length, and I can’t remember 
which ones I've abbreviated and which ones I 
haven't. Is there some technique by which I may 
disable this and crunch my programs faster? 


Ted Targosz 


Your programs are crunched. BASIC command 
keywords are stored internally as one-byte tokens. 
Whether you enter them in the "crunched" form (for 
example, ? for PRINT) or type in the full word version, 
the machine still uses a one- byte token. 

When you enter a line in the crunched form then 
LIST the program, it will print the whole BASIC 
keyword. This is simply a convenience of the screen 
editor, and does not use any additional memory. 

For example, turn off your VIC or 64, turn it back 


VN n 
| 


WANTED! 
SOFTWARE AUTHORS 


B roderbund Software is looking for 
new authors—both in-house and free- 
lancers—to join its international team of pro- 
gramming wizards. If you have an original, 
machine language entertainment product for 
the home micro market, let us show you the 
advantages of working with our team of de- 
sign, production and distribution specialists. 


Call or write for a free Author's Kit or send 
us a machine readable copy of your work for 
prompt review under strictest confidence. 
You have nothing to lose and perhaps a great 
deal to gain. 


“7 Broderbund Software" 


17 Paul Drive, San Rafael, CA 94903, Tel:(415) 479-1170 


on, then enter the following BASIC line: 
10 PRINT “ABC” 


Now type PRINT FRE(0) (this is the command 
that tells you how much unused BASIC memory is 
left). Jot down this number, then turn your machine off 
and on again. 

Now enter the same BASIC program in the fol- 
lowing crunched form: 


10?"ABC" 


Again, type and enter PRINT FRE(0). You'll now 
see that the amount of memory left is the same, even in 
the crunched form. 

For even more proof, LIST the program. The BASIC 
line is now uncrunched. Again enter PRINT ЕКЕ(0). 
The amount of unused memory still has not changed. 

If you're looking for ways to make your BASIC 
programs use less memory, there are many. The most 
common and most useful is to simply get rid of unneeded 
spaces within the BASIC program lines. But don't 
worry about those BASIC command keywords; they use 
up only one byte no matter which way you enter them 
initially. 


Using An 8-Pin Plug With The 64 


I have a question concerning the Commodore 64. 
In your article on improving the TV quality on the 
64, all of the information refers to the 5-pin plug 
on the back. I have one of the new models with 
the new 8-pin plugs, and have yet to see a pinout 
diagram for it. I would like to make the changes 
indicated in the article, but I don't know which 
pins do what. Can you help? 


Mark Poole 


Here is a list of the eight pin connections on the new 
Commodore 64s, and what they do: 


Purpose 

LUMINANCE same as 5-pin 
GROUND same as 5-pin 

AUDIO OUT same as 5-pin 
COMPOSITE VIDEO same as 5-pin 
AUDIO IN same as 5-pin 
CHROMINANCE without luminance 
UNUSED 

CHROMINANCE without luminance 


Disk Drive Solution Update 


In December's “Gazette Feedback,” we printed а 
letter from Sieg Deleu, president of Kobetek Sys- 
tems Limited, stating that his firm had the ROM 
kits for converting the 1540 disk drive to a 1541. 
Several readers have written asking for Kobetek's 
address. Here it is: 

Kobetek Systems Limited 

1113 Commercial St. 

New Minas 

Nova Scotia 

B4N 3E6 

Canada i G 


ооо он уу 


Ifyouown _| 
a Commodore 64 


(or are thinking of owning one) 


- be sure that you also get a Calc Result 


Calc Result is the worlds most cost effective spread sheet , 
for the worlds most cost effective computer- The Commodore 64: 


Calc Result at home 


Use it for loans and mortgages, home budget and cash flow, stock portfolio, personal net worth, IRA 
analysis, travel expenses, gas and electricity bills, bar charts and many more areas. 


In business 


Use it for budgets, calculation, simulation, construction, planning etc. Used by managers, salesmen, 
scientists, doctors, lawyers, dentists, consultants, accountants... 


There are two versions 
of Calc Result 


Choose the one that is most suitable for you. 


Calc Result Advanced 
All functions in Calc Result Easy plus 32 pages (Three- 
dimensional viewing). Page add, window, 
Calc Result Easy split screen (up to four pages on the * — 
Single page spreadsheet (64 columns x 254 rows). screen at the same time), and т” ч“ 
Built in graphics. Formula protection, flexible printout, help functions. Delivered on P 
color, conditional functions and mathematical functions. plug-in cartridge plusdisk. øf 
Delivered on plug-in cartridge. Data storage on cassette Requires disk drive. 
or disk. 


Get your Calc Result today! Buy it 
at your nearest computer dealer. 


” ж 
` / f Fellowship Business Center, 
"Ыы "S Fellowship Rd. B-206, 

Mt. Laurel, New Jersey 08054 


Commodore 64 is a trademark of Commodore Business Machines. 


COMPUTING 


Computer Show And Tell 


Fred D'Ignazio, Associate Editor 


In a recent issue of COMPUTE! (October 1983), I 
wrote about educational computing at home and at 
school as isolated ”islands” of computer learning. 
I expressed the fear that unless bridges were built 
between these islands, much of the computer's 
educational potential would never be realized. 

In the article, I suggested some home-school 
bridges that Kenneth Komosky (Educational 
Director of the Educational Products Information 
Exchange—EPIE) and I had come up with, 
including: 

e Community-wide training of parents, 

teachers, and children. 

e Community-wide computer cooperatives 

in which computer vendors work with schools 

and families to disseminate information about 
computers and offer discounts to families 

(especially low-income families). 

e Communication—A Parents and Teachers 

Computer Association could be formed. It 

could hold monthly meetings and publish a 

monthly newsletter that evaluates new com- 

puter products and educational software, 
and spreads the word about educational 
computing activities going on in homes, class- 
rooms, and libraries in the community. 

e Opportunities for Action—The community 

could organize computer faires, computer 

flea markets, and “brag nights” to show what 
the kids are doing with computers at home 
and at school. 

ө Sharing—The community could begin col- 

lecting old computers and software and set 

up a “computer library” (perhaps as a section 
of the public or school library). The library 
could keep review materials on the latest 
hardware and software; it could help increase 
the ratio of computers to kids in school; and 
it could make computers available for low- 
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income members of the community. A library 
could serve an especially valuable purpose 
by collecting information on the ways 
computers can help special children who are 
learning disabled, or physically or mentally 
handicapped. 


Starting Simple 


The program to link home and school computing 
is extremely ambitious. It is not something that 
сап be implemented overnight. It is a good idea 
to start simple with one or two bridge-building 
activities, then add new activities gradually. I 
have found this out from personal experience. 

In my hometown, Roanoke, Virginia, I am 
trying to put some of these ideas into practice. In 
the last few weeks I have learned that building 
computer bridges between home and school is a 
major undertaking. All we have set up, so far, is a 
swaying, rickety footbridge made up of popsicle 
sticks. But it's a start. 


А Warm Reception 


Ihave a five-year-old son (Eric) in a local kinder- 
garten and an eight-year-old daughter (Catie) in 
third grade. 

I began my bridge-building project by calling 
Catie's teacher, Mrs. Albertson, and volunteering 
toloan the school an extra computer we had sitting 
around the house. 

I was nervous about calling Mrs. Albertson 
and offering her the computer. I was afraid that 
she might not want a computer in her class. I was 
worried that she would think I was an uppity 
parent bent on interfering with her teaching. 

I was wrong. 

“What a terrific idea!" Mrs. Albertson said 
when she heard my proposal. We'd love to have 
a computer in the room. When can the computer 
come for a visit?" 


The day you bring your first CAI™ learning 
game home and watch your child play, 
you'll know the excitement of a winning 
choice. 

Active Family 

Your family and САІ5 growing family of 
animated, full-color programs have a lot to 
share —beginning with a willingness to 
reach beyond the ordinary to achieve the 
best. 

At Your Command 

You may meet a princess, a juggler or a 
dragon in Wizard of Words.™ You may 
appear as a guest оп TV in Master Match," 
The Game Show™ or Tic Tac Show.™ Or, 
you may extend these programs still further 
with our LearningWare"" diskettes, offering 
hundreds of questions matched to the 
teaching strategies in the games. In every 
case, CAI puts a world of imagination and 
learning at your fingertips. And puts you 
and your child in control. 

Unique Approach 
Key features place CAI thinking tools in a 
class by themselves: Each program comes 
with its own /ibrary of subjects. But that's 
just the start. Our unique authoring systern 
let's you or your child create your own 
lessons on any topic, tailoring the program 
to your familys needs —and no computer 
knowledge is required. Add the fact that 
we've kept the vital ingredient -FUN — in 
learning, and our proven success is no 
surprise. Over 2,000 school districts now 
use CAI programs to teach essential 
vocabulary and logic skills in a variety of 
subject areas. 

CAI supports its products —and you —with 
an unconditional guarantee and a free 
backup disk. And provides compatibility 
with the most popular computers: Apple,® 
IBM® (and soon Commodore™). 

Wise Choice 

CAI is a group of experienced educators 
and programmers who believe that success 
begins with opportunities you create at 
home. Ask to see a demonstration of CAI 
programs at your local computer store, and 
see for yourself just how rewarding a good 
education can be. 


^ 


ringi 


1442A Walnut Street, Suite 341 
Berkeley, CA 94709 (415) 526-9100 


Apple is a registered trademark of Apple Computers, Inc. IBM is а 
registered trademark of IBM Corp. Commodore is a trademark of 
Commodore Business Machines, Inc. 


The Creative Music System 


MAKE MUSIC PLAY and style of music you want, and also In fact, it delivers the quality and 
On Your Commodore 64" to play your favorite tune. The com- capabilities professionals have spent 
Put the MusiCalc" diskette into your puter screen will show you what the thousands of dollars for—up until now. 
COE Gf. Si lerra. vast ees music's doing as you play and how to Once you have the Commodore 64 
yourself. | 5 control ү computer and сінік drive, you сап get 
: electing one 1 arted for 5100 with the Musi- 


liscover an entirel 


new way to make music. With Musi- Calc 1 Synthesizer & Sequencer 


ERNE scores. Try combining that E 


Calc, the creative music system that a preset sound you like. Choose the This is a standalone software 

ЫЙ БӨ ТЕС play. Almost instantly, the scale you want to play in—anything program youll never outgrow. And 

whole family will be able to create 2 from jazz to Japanese. with the variety of other MusiCalc 
Presto! You've got music. products currently available, plus the 


Exercise your musical creativity b many more items Waveform will be 


and perum all kinds of music. From 


to SEE Jessie. БИШЕ тореекапу al alt уоп 
MusiCale makes music more fun, way you want, and playing whichever can expand your music —€— ong 
more rewarding and easier than it's pu you 1 us Make pee and with your interest and ability. 
add special flourishes to create your 
ever been before. GOGE THE MUSICALC SYSTEM 
NOTEWORTHY SOFTWARE Even a musical Î sound MusiCale includes a full line of soft- 
Commodore 64 compute! with disk ао talent, fen more Kap as is the keypad оғ уошг Commodore 64. 
drive into a sophisticated musical and exciting MusiCalc becomes. MUSICALC 1, Synthesizer & 
instrument. And it turns you into a BACH TO BASICS Sequencer Turns the Commodore 64 


into a sophisticated musical instru- 


composer, performer and conductor. 
ue ucc. шт апа 


MusiCalc 1 Ts Synthesizer & 5 5 qu bats Although simple to learn, MusiCalc 


was designed to meet the needs of 


ЕТ сап use your ee А „е Ез чы Play alone with 
computer key- a song or write your own. 
board to program aN Develop your own instru- 


ment sounds. And record 


the tempo, key 
the music you create. 


SS ESR SSS SS Se SSS Ss SS сиыгын 


MUSICAIC 2, ScoreWriter " Works 

with the Synthesizer & Sequencer 

to change your musical improvisations 
nto musical notation. VV 

tion of an optional 

you can 


MUSICALC TEMPLATE 2, New 
Wave and Rock Works like Template 1 
and features the latest Technopop scores 
_ апа so quires MusiCal 
to operate. 
MUSICALC 
PROFESSIONAL SYSTEM 
У The MusiCalc Synthesizer & 
2 Sequencer, ScoreWriter, 


n ше i = Е 
graphics printer 
ЕНЕ - tum your 


`== ЖШ] 


cost-saving package. 
HIT DISKS Recordings to 
play on your computer. 
Original Technopop com- 
positions, current hits and 
old standards performed by 
the Waveform Band. Ask 
your dealer about current 
releases. 


COLORTONE KEYBOARD AND 
MUSICALC 4 А totally new concept in 
“keyboards, ideal fo: 
novice to professional. A professional 
quality keyboard that’s remarkably easy 
to learn how to use. The keyboard comes 
with special software that allows it to 
work with MusiCalc 1 and 2, enabling 
and record it on disk to play back or 
print out later. Add MusiCalc 4 and play 
any scale in any key, for even greater 
musical capability. Available soon. 


own compositions into sheet 
music. Requires MusiCalc 1 to operate. 
MUSICALC 3, Keyboard Maker" 


ар you tO CI your OW! ustom 
musical keyboards. Comes with over 
30 preset keyboard scales from around 
the world—everything from classical 
to rock. Requires MusiCalc 1 to operate. 
MUSICALC TEMPLATE 1, African 

i this to th. 
MusiCalc 1 system and it provides 
additional musical scores and patches 
you can play along with or use to 
develop your own compositions. 
Requires MusiCalc 1 to operate. 


„ System. Also available in tape cassette, | 


. Disk or cassette. Discover MusiCalc, | 


DEMO DISK An entertaining and infor- 
mative demonstration of the capabilities, 
features and uses of the entire MusiCalc 


MAKE MUSIC PLAY 


MusiCalc will make music come 
alive for the entire family. It's a fun and 
educational way to introduce your 
children to music and computers. And 


no-matter what your background, you'll — ——— — — 


find yourself playing and understanding 
music in an exciting new way. 

Ask your computer or music dealer 
about MusiCalc. Or send in the attached 
coupon and $5 for the MusiCalc Demo 


е creative music system. | 


CORPORATION 
|USIC-P'RODUCTS-DIVISION-— 


MAKING MUSIC PLAY 


1912 Bonita Way, Berkeley, CA 94704 
(415) 841-9866 


All Rights Reserved © 1983 Waveform Corporation 
Commodore 64 is a 
ommodore 


I told Mrs. Albertson that we didn't have а 
TV set or monitor for the computer. She would 
have to scavenge one somewhere. Also, I told her 
that the class would need a table for the computer 
and a six-foot-square space in the room next to an 
electrical outlet. Mrs. Albertson said she'd talk 
to the lower-school principal and see what she 
could do. 


The Project Grows 

Two weeks later, Mrs. Albertson called and told 
me that she had talked with the lower-school 
principal, the headmaster of the whole school, 
and the head of student government. Everyone 
had gone looking for funds and had put together 
enough money to enable Mrs. Albertson to buy a 
new 20-inch color TV for the computer. 

After hearing about the TV, I didn’t even ask 
about the table, the space, and the electric outlet. 
I was sure that they, too, had been taken care of. 
When I visited the classroom a week later, I found 
they had. 

Mrs. Albertson said that everyone at the 
school was excited about the project because they 
hoped that the computer could become a resource 
for the entire third grade, and, secondarily, for 
the whole lower school. It was to be the first com- 
puter for kindergarten through grade three. 


Enlisting The Local Computer 
Store 


I was so encouraged by the school’s response that 
I drove over to the local computer store and pro- 
posed that they get involved, too. I showed them 
my "Islands Of Learning” article іп COMPUTE!, 
and I asked them what they would like to contrib- 
ute to our bridge-building project. 

The computer store owners’ response was 
amazing: They said they would be happy to 
donate two disk-based computers to the school 
for a trial, two-month period. They also offered a 


discount on all computers purchased by parents 
if the school handled the purchases. 

I volunteered to act as educational software 
consultant to the store and to tell the store owners 
about the most popular programs that we used 
over at the school. We would test the programs 
in school, then let the store know which ones 
were best. 


Where Should The 


Computers Go? 

I spent the next few nights on the phone with 
Mrs. Albertson and with Eric’s two teachers, Mrs. 
Paitsell and Mrs. Carling. 

I proposed that the second computer go into 
Eric’s kindergarten class. That would make com- 
puters available іп the kindergarten and third 
grades. The first and second graders could try out 
the programs that would be running on the third- 
grade computer. Their teachers could also take 
them to the kindergarten and let them try the 
programs for younger children that would be 
running on the kindergarten computer. 

I liked this approach because we could exper- 
iment with using the computer at two distinct 
developmental levels. It would be interesting to 
see what programs would work best with the 
different age groups. 


A Sneak Preview 


Catie and Eric's teachers felt that I should bring а 
computer to the school for a visit before we per- 
manently installed the computers in the class- 
rooms. Mrs. Albertson had a table, a space, an 
electrical outlet, and a big color TV, so we used 
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An educational ad 
out educational software. 


OU studied all the computers 
and finally chose the one your 
family found most useful. One 
of the main reasons you wanted 

a computer in the first place is to help 
your children in school. Not just to 
teach them how to use a computer, 
but also to help them get good grades 
in basic school subjects like reading 
or geography. 

"That's why you should know 
about AEC, American Educational 
Computer - one of the country's 
most important developers and 
publishers of educational software. 


T 


AEC grew up on education. 


You can help your child all 
the way through school 
and beyond. 


T. 


— A. 5 


The management of AEC started in 
educational publishing, with collec- 
tively over 100 years of experience 
in the field. AEC knows curriculum 
and how American education is 
practiced in the classroóm. 
That's important because 
children should learn at 
home the same way they 
learn at school. Other- 
wise, you'll have a very 
confused child, and con- 
fusion is not the way К 
to better grades or 
better learning. 


Look for our 
display in 
your favorite 
software store, 
andpickup 
your free 
educational 
leaflet. 


AEC knows that 
good grades are important. 


Any educational software could help 
school performance in some way. 
That’s because the computer is such 
a patient teacher, giving instant feed- 
back to questions and allowing chil- 
dren to learn at their own pace. 

But AEC software has an impor- 
tant advantage. Our approach has 
been student tested under actual 
classroom conditions. So we know 
it keeps the child’s interest while it 
teaches. 


AEC gets parents involved in 
the learning process. 


With either AEC's 

È MATCHMAKER”or 

| EASYREADER” Series, 

5. you сап take your 

child through the grades 

= in subjects such as 

œ~ Phonics, Word Attack 

7—— 7 Skills Reading Com- 

i ~~ prehension, Spanish, 
World or US Geogra- 


teacher tested system 


phy, and Grammar. Our 


allows parents to enter material into 
a lively, interactive format. And be- 
cause AEC's programs аге grade- 
level oriented, you can help your 
child all the way through school. 


AEC doesn't play games 
with education. 


AEC programs do contain games, but 
only as rewards for learning achieve- 
ment.For example, once your child 
successfully completes the objective 
in the Matchmaker Geography pro- 
gram, he or she can play an exciting, 
action-packed 


Sure, the games are fun. But 
they're not the basis, and certainly 
not the primary focus, of any AEC 
software. Our focus is strictly on 
learning. And isn't that what you 
buy educational software for? 

If you have more questions about 
educational software, 
contact your nearest 
AEC educational soft- 
ware center. And 
thanks for being a 
concerned parent. 


American Educational Computers 


2450 Embarcadero Way, Palo Alto, CA 94303 


All AEC Products are compatible with Apple," ІВМ" PC, Atari 800," TRS 80™ Color and Commodore 64™ Microcomputers. TM signifies manufacturer's trademark. ® signifies manufacturer's registered trademark, 


I selected Catie апа Eric's best educational 
programs to show off at school. I drove to the 
computer store and picked up a computer like the 
two that would be donated to the school. Then I 
drove to the school. 


Foiled By Murphy's Law 

I got to the school half an hour early so that I would 
have plenty of time to set up the computer. I 
lugged the computer into the classroom and 
started plugging in cables and cords. When I was 
done I turned on the computer and the TV. 

Nothing happened. The TV screen was filled 
with static. 

I fiddled with the channel selector. I 
checked all the connections. I 
took everything apart and 
plugged it back in. 

Still nothing. 

I turned around to face the 
class. I was going to tell the kids 
about finicky computers and 
Murphy's law. At the rear of the room 
I spotted about eight adults. While 
my back had been turned, the school 
principal and several teachers had 
slipped into the room for the 
demonstration. Instead of a demonstration all 
they got to see was me fussing and fuming 
at the dumb computer. 

I was so embarrassed. There I was, а computer 
expert, and I couldn’t even get a picture on the 
display screen. 

I was afraid to look at my two kids’ faces. I 
knew what they must have been thinking: If 
daddy’s going to humiliate us this way in front of 
our teachers and friends, it looks like it’s time to 
put him up for adoption. 


Culture Shock 


After a desperate phone call and a whirlwind trip 

back to the computer store for extra parts, I finally 
got the computer to work. Once it decided to work, 
the computer didn’t embarrass me any further. It 

behaved itself the rest of the afternoon. 

I finally relaxed. I popped disks into the 
disk drive and started showing off some of Catie 
and Eric’s favorite programs—Delta Drawing 
(from Spinnaker), KoalaPainter on the Koala Pad 
(from Koala Technologies), Rocky's Boots (from 
The Learning Company), Early Music (from 
Counterpoint Software), Math Maze (from Design- 
Ware), and Bank Street Writer (from Scholastic and 
Bróderbund). 

I put the disks into the computer, and Catie 
and Eric demonstrated the programs. 

We whisked through the programs at high 
speed. I was hoping to show about 20 programs 
in two hours. The kids in the class were "oohing" 
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апа ”aaahing” appreciatively. Everything was 
going smoothly. 

Then I ran into a brick wall. 

“Those programs are all very impressive,” a 
teacher called from the back of the room (the very 
back of the room). “But they are obviously in- 
tended for older children. Don't you have any- 
thing for the children in this room and for our 
kindergartners?” 

Whoops .... 

I didn’t know how to answer her. I wanted to 
be flip and say, "Dear lady, both of my children 
use these programs without any supervision. Eric 
has been using some of these programs since he 
was only two years old.” 

I wanted to say that, but I didn't. It had begun 
to dawn on me that the computer programs I was 
demonstrating may have looked like fun to me and 
the kids, but to the teachers they looked like a cram 
course in calculus or electrical engineering. 

The teacher who had spoken walked up to 
the front of the room. She pointed to the display 
screen. The menu to KoalaPainter was on the 
screen. "There must be dozens of different options 
on this screen," she said. "How can we teach our 
kindergartners to operate a program that is this 
complex?" 

I explained to the teacher that little kids didn't 
think the program was complex. Eric, for example, 
pretended that the menu boxes were "doors." He 


“Popular Computing says 
The Home Accountant 
does just about everything 
you'd ask of a personal 
finance package." * 


“You mean you can use 
The Home Accountant 

for business, 
too?!" 


"Absolutely. 


without it.” 


“The Home Accountant 
is great for 
realistic budgeting." 


“I'm so glad you brought 
it home. I never thought 
that creating a budget 

and managing money 


could be so easy." | 


* Popular Computing, November, 1982 
t Apple Softalk, April, 1982 


Is it because it's the #1 bestselling 
home finance package in the world? Or 
because it's extremely thorough and 
powerful and easy to use? Or because 
it's great for home and business use? 
Or because it has up to 200 budget 
categories and handles up to 5 
checking accounts? 

Yes. But there are a lot more reasons 
why people buy The Home Accountant. 
And why you will, too. 

Because The Home Accountant can 
literally save you hours of time. And 
take the headache out of handling your 
finances. Whether it's setting up a budget, 
cataloging your expenses, balancing 
your checkbooks or handling your 
credit cards and money market funds. 
For personal or business use. 


Wouldn't want to run 
my consulting firm 


| 


Everyone's talking about The Home Accountant: 


Instruments Professional, Zenith 
Z-100/110, Compaq and KayPro compu- 
ters. Actual budget capacities will vary 
with each computer. 


inental Software. spi t 
ae eden Те rue 


“The Home Accountant 

is the #1 best-selling 

home finance package 
in the world.” 


“Softalk Magazine 
says it’s the most 
thorough and 
powerful program 
of its kind." t 


“1 agree.” 


“You can create trend analysis 
graphs for each budget 
category, so you can make 
isual comparisons of where 

you stand financially.” 


“And you can do it in 
full-scale color graphics.” 


М 


my finances.” 


The Home Accountant will even 
print net worth and financial state- 
ments. Not to mention being a lifesaver 
at tax time. Especially when you’re able 
to transfer information onto Continen- 
tal’s The Tax Advantage™ program and 
figure out what you owe. Quickly. 

In short, The Home Accountant is the 
most effective software program there 
is for managing your money. And man- 
aging it easily. 

Stop by your Continental Software 
dealer today and pick up The Home 
Accountant. You'll see what everyone's 
talking about. 

The Home Accountant is available 
for Apple П/Пе, IBM PC/XT, Atari 
400/800/1200XL, Osborne® TRS-80 
Models III/4, Commodore 64, Texas 


“The Home Accountant 
even flags transactions for tax time. 
And that's a big time-saver 
because I can transfer information 
to The Tax Advantage™ program 
and easily figure out what I owe.” 


“The Home Accountant 

will even print a 

personal financial statement 
and net worth statement. 
Keeps me right on top of 


“My company has 
5 checking accounts, 
6 business credit cards 
and 3 money market 
funds to keep track of. 
The Home Accountant 
makes it easy.” 


"It automatically prints 
my checks. And gives 
them a very 
professional look." 


“It has up to 200 budget categories 
so I have all the flexibility I need.” 


For your free 48 page booklet, 
"Tips For Buying Software,” please 
write Continental Software, 11223 
South Hindry Avenue, Los Angeles, 
CA 90045, 213/417-8031, 
213/417-3003. 


opened a door just by pointing to it on the 
KoalaPad. Then he went through the doors into 
different ”drawing” worlds where he made multi- 
colored rubber bands, grew circles and squares, 
and drew shapes and pictures. 

“Show her, Eric,” I said. I picked him up and 
plopped him down in front of the computer. Eric 
showed her. 

The teacher was unimpressed. “Не can do 
all those things because you taught him,” she 
said. ”You're a computer expert. But you won't 
be in my classroom with me and my kids. Who’s 
going to teach me? And how am I going to teach 
the kids?” 


First Things First 

At that moment everything became clear to me. I 
realized that, in my idealistic fervor, I was rushing 
in the wrong direction. I was trying to create new 
educational structures, but I was forgetting the 
basics. The first item on my agenda wasn't bridge 
building, it was teacher training. It would be point- 
less to stick computers in Catie and Eric's class- 
rooms unless their teachers knew how to operate 
them and were comfortable with them. 

What the teacher had said was true. The kids 
couldn't learn on the computers unless she taught 
them. And before she could teach them, some- 
body had to teach her. 

That somebody was me. 


The Prime Mover 


Before I took the computer to my kids' school, I 
had thought that I was going to act as liaison be- 
tween two ongoing computer learning centers. I 
saw the home as one learning center and the 
school as the other. The way I saw it, my job was 
to get the two centers communicating, sharing, 
and trading information and resources. 

After my experience in the classroom with 
the kids and the teachers, I realized that, for a 
while, my job would be much more limited. Before 
I could coordinate the activities of the two learning 
centers, I would have to create them. 

I realize now that I'll have to spend a consid- 
erable amount of time with the teachers to get 
them started using computers in the classroom. 
And I'll probably have to work with the parents 
to get them started using computers to help their 
children learn at home. 

Before I begin building the bridge between 
the two islands of learning, I'm going to have to 
build the foundations. 


Show And Tell At Home And 
At School 


I've started inviting teachers from my children's 
school over to our house on evenings and 
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weekends. We are conducting an informal teacher 
training workshop, and we are screening the soft- 
ware that we plan to use in the classroom. 

I'm learning a lot. 

My next goal is to create a newsletter that the 
kids can take home to their parents. I hope that 
there are a lot of parents out there who know 
something about computers and who read the 
newsletter and get enthusiastic about my bridge- 
building plans. 

I сап use their help. They can work with the 
teachers and help train them on the computers. 
They can bring their computers to school for show 
and tell. They can share their software with the 
school. 

Once the teachers are trained and we have a 
nucleus of committed parents, we can think about 
organizing a Parents and Teachers Computer 
Association. 

For the moment, though, I’ve got my hands 
full training Eric's teacher on the KoalaPaint pro- 
gram. Like the other teacher, she is boggled by 
the screen menu with all its boxes. 

Eric is helping me train his teacher. He is 
very understanding and very patient. Two nights 
ago, during a session, he pointed at the screen 
with the KoalaPaint menu. "These are doors into 
the computer," he told his teacher. "Which door 
do you want to open first?" G 


AStar is Born. 


A Communications Cartridge 
for the Commodore 64. 
Upload/Download, Status Line, etc. Works with 
your Commodore 1600 or 1650 Modem. 
Auto-dialing, etc. when used with the new 
CBM 1650 Modem. 


Cartridge and Manual - $49.95 


3239 Linda Dr. 
Winston-Salem. N.C. 27106 
(919) 924-2889 (919) 748-8446 


aster mn 
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IF YOU CAN FIND А BETTER 
WORD PROCESSOR OR DATA BASE SYSTEM 
WE'LL BUY IT FOR YOU. 


Outrageous offer? Not 
really. For your Commo- 
dore 64, we're putting our 
money where our mouth 
is, because the Timeworks 
Word Writer and Time- 
works Data Manager 2 
are so complete — so ex- 
remely easy to use, we 
hink nothing beats them 
at any price. (Our suggest- 
ed retail prices are: $49.95 
or Word Writer. $49.95 for 
Data Manager 2.) 


Word Writer 


This menu-driven system includes: 

A program which can be used by itself (stand- 
alone), or interfaced with Timeworks Data Manager 
or Data Manager 2, enabling you to maintain and 
print out name and address lists, create individu- 
alized form letters automatically, and produce 
custornized reports up to 20 columns wide, which 
can be incorporated into any text produced by the 
Word Writer. 

Two plastic keyboard overlays which place 
the word processing commands directly onto 
the keyboard. 

A full screen format (up to 80 characters) which 
simplifies your text entry and editing. 

АП the essential features — plus some exclusive 
Timeworks extras — making this system completely 
functional for most home & business requirements. 


Data Manager 2 


This system includes: 

Amenu-driven program that easily lets you store 
information on a wide variety of subjects— from 
general name and address lists, to research data. 
This program will also calculate and store any 
corresponding nurnerical data. 

Quick access to important information. Items can 
be easily retrieved and printed by category, name, 
index code, date range, amount range, or any 
category of information stored in the system. 


**Now for the small print. Offer applies to Commodore only, with maximum suggested retail prices of $125.00 each for any exchanged program. 


Timeworks exclusive X-Search™ X-Sort™ and 
X-Chart" features allow you to easily cross-search 
any of the categories. Or arrange your stored items 
in increasing or decreasing order, alphabetically, 
numerically or by date. Break down statistical infor- 
mation by up to ten indexed categories of your 
choice — and graphically 
review your results. 

Arithmetic calculation 
of your mathematical 
data is possible, allowing 
you to perform Payroll cal- 
culation, cost estimates 
and more. Data Man- 
ager 2 also produces the 
Sum, Average and Stan- 
dard Deviation of statis- 
tical data entered into the 
system, along with Fre- 
quency Charts. о ed 


When interfaced together, these programs: 


Generate customized data reports, which can be 
incorporated into any written text produced. 

Individually address and print form letters 
automatically. 

Print your name and address file onto standard 
mailing labels. 

Transfer and print text information onto labels 
and tags. 

Calculated numerical data from column to 
column, giving these programs spread-sheet 
capabilities. 

So, if you can find anything better, simply send us 
your Word Writer or your Data Manager 2, your 
paid receipt, and the name of the word writer or 
data base system you want. If it's available, we'll 
buy it for you.** 

Now at your favorite dealer. Or contact Time- 
works, Inc., RO. Box 321, Deerfield, IL 60015. Phone 
312-291-9200. 


FIMEWORKS 


SOFTWARE WITH SUBSTANCE. 


Data Manager 2 


Data Manager Тһе Electronic 
Checkbook 


Offer expires 45 days after date of your purchase. 
‘Registered Trademark of Commodore Computer Systems © 1983 Timeworks, Inc. All rights reserved. 


The Electronic Castle: 


Managing Your Home 
With Your Computer 


Selby Bateman, Assistant Editor 


When friends and relatives begin asking you 
what practical uses your personal computer 
has, let your answers start right at home. Soft- 
ware producers, spurred by consumers, are 
creating a wide array of home applications. 
And with the advent of such home transaction 
services as computer banking and shopping, 
the future looks even brighter. 

[ тсс SD ES 


hat do you see when you look at your 

home computer? A game-playing 

machine? An educational toy? A 

learning tool? Sure, your computer is 
all of these, but it’s much more. 

As Elliot Dahan says, “Му basic premise is 
that if you don’t look at your computer as a home 
appliance, then don’t even buy one. It’s as simple 
as that. When you see the computer as an 
appliance, then you start looking at what it will 
do as an appliance.” 

Dahan is vice president for marketing at 
Creative Software, a company that has had great 
success with its line of educational, home man- 
agement, and computer game programs. His sen- 
timents are echoed by other software producers, 
many of whom are marketing home management 
programs which address everything from the 
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family budget to home heating. 

In order to better understand the multitude 
of home-oriented computer applications now on 
the market, let’s divide them into three basic 
categories. 

First, there are the home control programs 
which allow you to regulate the heating, cooling, 
and lighting of your house or apartment. Home 
security packages let your computer become a 
sentinel against intruders by monitoring doors 
and windows, setting off alarms, and even auto- 
matically calling the police if necessary. 

Second, there are household management 
programs for word processing, family budgeting, 
checkbook balancing, and a host of other related 
functions. 

The third broad category is home transaction 
services. With a modem, two-way transactions— 
at-home banking and shopping, for example—are 
now possible. These transaction applications are 
being tested in several major metropolitan markets. 
If the experiments prove commercially feasible, 
other transaction service developers are waiting 
in the wings with similar systems. 


D. people really buy home computers for these 
kinds of home applications? Tricia Parks, a re- 
search director for Future Computing, a company 


that analyzes trends in the personal computing 
industry, says her company is in the midst of a 
major psychographic and demographic analysis 
of buying patterns among home and business 
computer users. 

“We have found that people generally have а 
dual motivation when they purchase computers. 
The first reason is to play games. But that's not 
the only reason. Otherwise, they would buy a 
game system for the home, not a computer,” notes 
Parks. 

People with children usually buy computers 
in order to further the education of the youngsters 
and for home management, she adds. Those with- 
out children generally cite self-education and 
home management as reasons for their computer 
purchases. 

”The home management reason has been 
lesser in the past, but it is growing,” says Parks. 
”That's reflected in the kind of machines that are 
coming out, such as the Commodore 64.” 


L.. year, the increasing interest in home control 
applications came to the attention of Savergy, 
Inc., a Colorado firm which creates and manufac- 
tures equipment and software for energy man- 
agement applications. In response to customer 
interest, the company has developed and is now 
marketing a home energy control device for use 
with Commodore computers. 


Savergy's CIM 112 home-control package includes the com- 
puter interface module (lower left), the wall-mount unit 
(right), and software. 


Called the Computer Interface Module 112 
(CIM 112), the unit will regulate lights and 
appliances—turning on and off everything from a 
sprinkler system to a water heater—when coupled 
with a computer. The $450 unit can save energy 


through its scheduling capabilities and through a 
timing control method called duty cycling. The 
package includes a computer interface module 
(about the size of a paperback book) which plugs 
into the computer, a wall-mounted unit (the size 
of a thick phone book), and program software on 
disk or tape. (For more information, contact 
Savergy, Inc., 1404 Webster Ave., Fort Collins, 
CO 80524.) 

One major drawback to this type of personal 
computer use immediately becomes apparent 
when you realize that you can't use your computer 
if it's tied up sprinkling the lawn, running the 
thermostat, or monitoring your home's security. 

John Helwig of Wescoville, Pennsylvania, 
has developed a solution to that problem: Pur- 
chase a VIC-20 computer, now selling for well 
under $100, and use it as a machine dedicated to 
home control. This way, you have your original 
computer for personal use and a home control 
machine costing far less than many of the security, 
lighting, and temperature control systems. 

Helwig became interested in a home security 
system when a neighbor's house was burglarized. 
He shopped around at commercial firms and 
found that the costs usually amounted to several 
thousand dollars. “People would like to have a 
system, but they just can't afford it. Three 
thousand dollars is a lot of money." 

He has since developed a home control pack- 
age which he is marketing through his own com- 
pany, Jance Associates, Inc. It sells for under $200 
and can be used with a VIC-20 or Commodore 64. 
With instructions written for the home computer 
user, the Jance system includes a computer inter- 
face card and all the alarms, switches, and wire 
necessary to set up the product. 

Helwig has added BSR switch modules to his 
own system so that the security function is just 
one component of home control. BSR modules 
connect to the electrical plugs in a home and react 
to commands from the computer. The system can 
be used to control the temperature in the hot water 
heater, to monitor heat pump activity, and to 
keep tabs on the computer's realtime clock so that 
Helwig's home thermostat can be raised or lowered 
at certain times and on designated days. There 
are dozens of related applications possible for the 
innovative computer owner, Helwig adds. 

“I'm in the process of negotiating with several 
home construction companies that are interested 
in building the systems into houses. Every switch 
would be BSR oriented," he notes. "According to 
the builders I've talked to, there is a real demand 
for this. The whole concept of using home com- 
puters is expanding. There are all kinds of things 
that can be done." (For more information, con- 
tact Jance Associates, P.O. Box 234, East Texas, 
PA 18046.) 
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C related to the home control category of 
computer applications is household management. 
Balance your checkbook. Chart your monthly 
electric bills. Use a word processor to handle 
correspondence. 

Think of a household chore that needs to be 
listed, written, graphed, or analyzed, and you 
can find computer software that will attempt it. 
(See “The Data Base As A Home Information Cen- 
ter” elsewhere in this issue.) 

Let's say that you have set up a thermostat 
control package using your computer. To comple- 
ment that, there are programs which allow you to 
plot energy usage from month to month and cal- 
culate savings from use of insulation, storm doors, 
weatherstripping, and other energy efficiency 
improvements. (See COMPUTE! Books' Home 
Energy Applications On Your Personal Computer.) 
Energy programs are but one example of house- 
hold management. i 

One computer executive who has looked 
carefully at these applications is Vic Schiller, vice 
president of development for Timeworks, an in- 
dustry leader in the field of home management 
software. His company has produced several 
popular programs, such as Money Manager, Elec- 
tronic Checkbook, and Data Manager. 

“The theory we promote here is that people 
will not buy something they don’t understand. 
That’s very important to us,” he explains. 

The success of the company’s home manage- 
ment line of software has occurred, he adds, be- 
cause of adherence to that principle. 

“The whole key to this thing is that it is so 
easy to use. Mom and Dad can use our Money 
Manager when they pick it up without even 
reading the instructions. I’m such a stickler for 
user-prompted formats. If I can run software with- 
out opening a manual, that’s a good piece of soft- 
ware,” says Schiller. 

Early in 1984, Timeworks began marketing 
The Word Writer, a word processing program which 
interacts with the other home management pack- 
ages produced by the company. "It's totally 
user-prompted, with two keyboard overlays. And 
there are no commands to memorize,” Schiller 
points out. 

Elliot Dahan at Creative Software agrees that 
home management programs should be easy to 
use. The company's household finance program 
has sold over 150,000 copies on cassette for the 
VIC. And this year Creative Software is selling an 
integrated series of household management pro- 
grams called The People's Choice. Included are 
Joe's Writer, Fred's Filer, and Jack's Calc, all targeted 
for the home user who wants to combine easy use 
with low cost. The programs each cost $49.95 and 
allow you to integrate mailings with word proc- 
essing, for example, as a part of their format. 
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Timeworks, Creative Software, and other 
software producers continue to improve house- 
hold management programs, looking for the magi- 
cal mix of low price and easy use. 


Н... transaction services, less common than 
the types of applications we've seen so far, are on 
the threshold of a breakthrough. With your com- 
puter, you should soon be able to make shopping 
purchases, buy stocks and bonds, deposit and 
withdraw funds from your bank, conduct personal 
business, buy theater tickets, and much more. 
This two-way home computer market is an out- 
growth of the burgeoning news, information, and 
entertainment services you may now be using 
with your modem. But with the interactions soon 
to be available, home management by computer 
enters a new realm. 

This may be the year when home transaction 
services are established in selected large metro- 
politan markets. Major companies like the Knight- 
Ridder newspaper chain, the Times Mirror Co. 
(owners of the Los Angeles Times), Field Enterprises 
(owners of the Chicago Sun-Times), and Chemical 
Bank are closely watching home transaction ex- 
periments in Miami, the Chicago area, and other 
cities, to see if they attract enough subscribers to 
make mass market systems feasible. 

The gamble here is not so much whether the 
concept will work; it appears to be an idea whose 
time is overdue. Rather, the anxiety among these 
companies stems from which mix of services will 
catch on and at what price. 

One of the more interesting experiments is 
the Keyfax Interactive Information Service, sched- 
uled to go on-line this spring in Chicago. 

Tom Ray, manager of advertising and public 
relations for the system’s owner, Keycom Elec- 
tronic Publishing, hopes to have some 20,000 
subscribers in the Chicago area by the end of 
the first year. Keyfax should be accessible by 
virtually all home computers, says Ray, for a 
$10—$15 monthly base rate. Not included in that 
will be a one-time purchase of the necessary soft- 
ware at about $40 or a software-modem package 
at about $150. 

Keyfax will offer a full range of general data 
base information, shopping services, banking 
functions, educational packages, and financial 
options. Ray notes that customers will have access 
to Ticketron, the national ticket-buying service, 
and even to an electronic edition of the World Book 
Encyclopedia. 

How will these initial mass market experi- 
ments in computer transaction services be accepted? 
“It's hard to guess," says Ray. "We'll see what 
happens those first couple of years. Quite hon- 
estly, I think that everyone is taking guesses.” 
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If experiments like Keyfax in Chicago, 
Citibank’s HomeBase, and Knight-Ridder's View- 
tron in Miami do well, plans are already under 
way to make access available nationally. 

Gone are the days when a personal computer 
owner might feel the need to apologize while 
fielding well-meant but skeptical inquiries about 
the machine's practical uses. Whether the appli- 
cation is household control, management, or two- 
way transactions, the computer owner’s home 
can clearly become an electronic castle. @ 
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The Data Base 
As A Home 
Information Center 


Kathy Yakal, Editorial Assistant 


Perhaps one of the reasons you bought a home 
computer was to help you "get organized.” 
You might have a spreadsheet for your finan- 
cial calculations and a word processing pro- 
gram for correspondence and other writing. 
But there's another kind of software that can 
be valuable for many types of home record 
keeping: a data base program. 


I have this friend who, in her early days of com- 
puting, was asked to alphabetize and type a list of 
volunteer groups. It would be simpler, she 
thought, to perform such a task using a personal 
computer. 

Having become familiar with word process- 
ing, knowing that she could just type in all the 
names and addresses and phone numbers and 
print them out, she decided that a word processing 
program would work. Even if she needed to 
change or add or delete records, she figured she 
could go back to her file and use the built-in text- 
editing functions. 

But first, she had to alphabetize the 200 pieces 
of paper containing the group information. Then 
she remembered that they were supposed to be 
separated by state before being alphabetized, so 
she started over again. 

After typing in all the information and printing 
it out, she found a stack of a dozen or so that she 
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had missed. She typed in and printed them out 
separately and began to cut and paste her original 
list to fit them in. 

About that time, a coworker who had heard 
of her plight wandered in with a disk in his hand. 
“This is a data base program that you can use for 
your list,” he said. 

“Tm already finished with it,” she replied, 
pointing to her rather unsightly stack of work. 

“Oh, I see you used a word processing pro- 
gram for it," he said, trying unsuccessfully to 
hide a grin. "Well, why don't you take a look at 
this program. Maybe it will make your job easier 
next time." 

She did. And it did. 


The Same Thing, But Smaller 


А data base is exactly what its name implies. It is 
a base, or storehouse, for your data. You create 
and maintain your data base by using software 
specifically designed to let you enter, store, and 
retrieve data in a format that you designate. 

Large systems, mini- and mainframe com- 
puters, have used data bases for years. Many 
businesses store data base files in their central 
computers. Employees may then have access to 
that information through their own individual 
terminals. 

Data base software for Commodore com- 
puters, though perhaps not as sophisticated as 
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mind are beckoning. A whole new 
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systems used by larger computers, consists of the 
same basic components. A bank's computer may 
have millions of words and figures to keep 
straight, while your VIC-20 has only to organize a 
75-name Christmas list, but they can both use 
data base programs to do it. 


Getting The News By Data Base 


Let's say it's 8:00 and your morning newspaper 
hasn't yet arrived. If your local newspaper's cir- 
culation records are stored in a computerized 
data base, and the computer happens to be 
working at the moment that you call, the conver- 
sation might go like this: 


Phone Clerk: "Circulation department. This 
is Dan Sullivan speaking." 


You: “8:00. No paper.” 


Clerk: "I'm sorry. May I have your phone 
number, please?" 


You: "Why do you need my phone number? 
My paper is supposed to be delivered to my 
front porch, not my telephone." 


Clerk: "We access your records through your 
phone number, not your address. If you'll 
give me your phone number, I'll get your 
record up on the screen and see what route 
you're on. Then I car check to see if there's a 
problem with that route." 


The record that the phone clerk needs to ac- 
cess is a small part of a file, which is a small part 
of a large data base, and probably contains a lot of 
information that can help him track down your 
newspaper. It will list your name, address, and 
telephone number. It will identify what route you 
are on, and maybe even give the name and phone 
number of the newspaper carrier. It will, of course, 
show the clerk whether or not you actually sub- 
scribe to the morning newspaper. And, unless 
billing records are kept on a separate data base 
that the circulation department cannot access, it 
may show when you paid your last bill. 

Of course, the phone clerk can't use the data 
base to deliver your newspaper. But it allows him 
to get enough information quickly so he can solve 
the problem and get you your newspaper. 


Starting Out 
When you first subscribed to the newspaper, you 
gave information about yourself that had to be 
entered into the circulation department's data 
base. But before that, when the department's 
records were being transferred to a computer, 
someone had to decide what information this 
new filing system needed to contain. 

Just as businesses must define their needs for 
information storage, you will need to do the same 
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thing when you use a data base on your home com- 
puter. 

Any data base software that you buy should 
include documentation, instructions explaining 
how to use it. The documentation might be long 
and complicated, but it's important to read 
through and understand it before you get 
started. 

Though commands and capabilities vary from 
one program to another, all data base programs 
consist of the same basic elements. 

The first step is to create a file. This file is not 
to be confused with the data base itself. A data 
base can hold many files, and the software should 
allow you to define your own files based on what 
you need. 

You may be used to thinking of a file as a 
little manila folder that goes in a drawer. It means 
the same thing in terms of a data base. Instead of 
typing a label to put at the top of a file folder, you 
type the name of the file into the computer. 

Let's say you bought a data base program to 
catalog your books. We'll call the file "Book Col- 
lection." 

This file contains a number of records, one for 
each book. Though the actual content of each 
record differs, the type of information is the 
same. 

Each record consists of several fields. This is 
the real meat of your file, for these are the lines in 
which the individual information for each record 
is stored. You are asked to give each field a name, 
and also decide on the maximum number of char- 
acters and numbers each field can hold. Further, 
you'll need to decide whether that field can hold 
letters only (alpha), numbers only (numeric), or 
both. 

It is extremely important to define your fields 
carefully. If you don't allow enough room for the 
information you need to enter, you'll have to go 
back and redefine your file. And if you allow for 
more information than you'll ever need, you'll be 
wasting memory. 

Using the example of a book collection, you 
might want to name your fields like this: 


1. NAME OF BOOK (50 characters maximum; 
both alpha and numeric allowed) 

. AUTHOR (35; alpha only) 

. COPYRIGHT DATE (4; numeric only) 

. PUBLISHER (35; alpha only) 

. PUBLISHER'S ADDRESS (30; both) 

. CITY, STATE, ZIP (40; both) 

. SUBJECT OF BOOK (25; both) 


MO л PWN 


Once you've defined and saved a format like 
this, you can call up that format to add, change, 
or delete records. Data base programs vary in 
procedures for saving an updated file. Some save 
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Box 953, Dartmouth, Nova Scotia В2Ү 376 


Attn: Order Desk 


each record аз it is entered, while others require 
you to enter a SAVE command every few records. 


All Sorts Of Sorts 


Beyond storing information in a user-defined 
format, a data base program can not only retrieve 
it, but retrieve it in a certain order. Or retrieve 
only certain records and put them in order. Each 
program has its own variety of ways to sort and 
organize information. 

In order to do that, you must define the 
criteria by which you want to sort. You need to 
specify some of your fields as key fields. In our 
imaginary phone call to the newspaper, the phone 
clerk knew that the customer’s phone number 
was a key field, that he could access the whole 
record by typing in the phone number and letting 
the program match it to your subscriber record. 

In your book collection file, suppose you 
define fields 2, 3, and 7 as key fields. You would 
be able to find out how many books you have by 
a given author or publisher, and which books you 
have on a certain subject. 

Or, if you are planning to visit a city and want 
to look for a job with a book publisher, you could 
set up a separate field for CITY, do a sort, and 
come up with names and addresses of book pub- 
lishers in that city. Deciding which fields to desig- 
nate as key fields will depend on how you will 
later want to sort them. 


À Few Warnings 


Before you create a file, be sure to note the storage 
capacity of your data base program. Most com- 
mercial programs available for Commodore com- 
puters have adequate space for home data storage, 
but it's a good idea to plan ahead for future file 
expansion. 

Reading the documentation carefully тау 
save you a lot of headaches later on. Anyone who 
defines a file and discovers a major flaw in its 
design 30 records later learns that lesson in a 
hurry. Some programs allow you to go back and 
redefine a record's fields, but you can't count on 
that unless you read the documentation. 

Most programs are particular about punctua- 
tion, and will not allow you to use certain marks, 
or any punctuation marks at all, in some fields. 

Be sure you are aware of any punctuation quirks 
your program may have. 

If you plan to alphabetize, beware of such 
things as state abbreviations. Whenever you 
specify a key field, you will at some point be asked 
for the depth of sort, how many characters into 
the line you want the program to sort. If you want 
to sort a file by state, then alphabetize, you could 
run into a couple of problems. 

You would probably set the depth of sort at 
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two. This would seem to suffice for state ab- 
breviations. But take Maryland (MD) and Massa- 
chusetts (MA), for example. If it sorts by those 
abbreviations, they would be in the wrong order 
when you spell out the state's name. In addition, 
if you have records from places outside the United 
States, Canada will come between California and 
Florida, and Mexico will show up in the middle of 
the M's. You need to think through the kinds of 
sorts you'll want to do before defining files. 

If you plan to print specialized reports from 
your compiled and sorted data, you will find 
that many programs let you designate which sec- 
tion of the file, even which fields in each record, 
should be printed. However, some programs 
print line and record numbers along with the data. 
Be sure to consult the documentation if you need 
to print a polished report with no extraneous 
information. 


Some Home Applications 


Perhaps you can't think of any uses for a data 


base in your home. Or maybe you bought a data 


base program for a specific purpose and are won- 
dering how else you could use it. Here are some 
suggestions. 


€ Cataloging personal belongings. You can 
use a data base to keep track of records, books, 
tapes, software, and other items you have a- 
massed. If you have a hobby like stamp collecting, 
you may find that the program's sort capabilities 
enable you to catalog your collection more fully. 

e Recording gifts and cards for special occa- 
sions. Giving and receiving gifts and cards for 
weddings, birthdays, Christmas, and other holi- 
days can create some organizational problems. A 
data base may be helpful. 

€ Keeping track of subscription expiration 
dates. If you subscribe to several magazines, 
newspapers, or other periodicals, you might want 
to use a data base to remind you when each is 
coming up for renewal. 

* Computerize your address book. If you 
have to buy a new address book every other month 
because you keep scratching out and adding 
names and addresses, a data base could provide a 
simpler way to track down mobile friends and 
relatives. 

e Making bibliographies for work- or school- 
related projects. If you're preparing a major report, 
a data base might be a better way of organizing 
sources than a stack of file cards. 


A data base will not organize your life for 
you. That still takes some time and effort on your 
part. But if you have a personal computer, and 
are looking for ways to make it a practical part of 
your home life, you might find a data base a very 
useful tool. @ 


YOUR 3 BEST REASONS 
TO OWN A 
COMMODORE 64 


The easy file manage- 


The best word processing ment system with The interface to end all 
program of its kind awesome capabilities interfaces 

PaperClip' is the program that Delphi's Oracle" is like a BusCard* is a magic box that 
makes word processing so simple ^ computerized filing cabinet lets you add disk drives, hard 
you'll never use a typewriter with a brain. Organize your files | disk, virtually any printer, and 
again. Advanced features you апу way you want. Then search, a whole range of other 

might only expect on a much sort and analyse your peripherals without any costly 
more expensive system, yet so information with effortless additional equipment. Gives 
easy to use even a novice can speed. So versatile, its power you extended BASIC, and other 
get professional results. will amaze you. impressive capabilities your 64 


could never handle before! 


BATERIES (INCLUDED 


*PaperClip, Delphi’s Oracle and BusCard have been developed specifically for 
Commodore computers by Batteries Included. For a full-color brochure on all 3 of these packages, 


write to Batteries Included, 
186 Queen St. W., Toronto, Ontario, Canada M5V 171, or call (416) 596-1405. 


Commodore 64 is a Trademark of Commodore Business Machines. 


Dieter Demmer 


The Programmer Behind 
Delphi's Oracle 


Kathy Yakal, Editorial Assistant 


Your home computer with a disk 
drive or cassette recorder can 
store a great deal of information. 
But if you want to use your 
computer for record keeping, 
that information needs to be 
easily entered and retrieved, 

and probably in some sort of 
logical order. Data bases meet 
that need. Here’s a look at one 

of the most popular data bases 
for Commodore computers, 
Delphi's Oracle, and the man who 
designed it, Dieter Demmer. 
EES 


n explaining what a data base is, people 
often compare it to a box containing index 
cards. Let’s say you use such a filing system 
to keep track of addresses. The box itself is 
the file. Each card is a record of information about 
one person. Every record consists of several en- 
tries, or fields, like name, street address, city, state, 
and telephone number. To be useful, a file like 
this would need to be in some kind of order, prob- 
ably alphabetical, and require periodic revision. 

A data base is set up the same way. Basically, 
it is a program that allows you to set up a filing 
system, enter data, then order and revise those 
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files. Some data bases are designed 
for specific purposes, like mailing 
lists; others let you define your own 
files. 

Delphi's Oracle is an example of 
the latter. Published by a Canadian 
software company, Batteries 
Included, it’s a powerful data base 
with a storage capacity limited only 
by hardware. "Using a Commodore 
64 and a 1541 disk drive, you could 
fill an entire disk with records and 
still have room,” says program 
designer Dieter Demmer. 


A Technical 


Background 

Programming and modifying Delphi's Oracle took 
almost a year, but Demmer's many years of tech- 
nical experience paid off. Born in Cologne, 
Germany, he received a Bachelor of Science degree 
from the University of Cologne and began а 
15-year stint with Litton Industries in research 
and development. He spent another three years 
with Control Data in Minneapolis as a program 
analyst, then returned to Litton as a field service 
representative. 

“I pretty much taught myself how to use 
computers," says Demmer. "I started learning 
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COLECOVISION 


W TO 
GET Q*BERT OUT OF 
YOUR SYSTEM. 


If you've been wanting to play Q*bert, but haven't been able to find it available 
for your home system, your time has come. Because now you can keep % 
things hopping with any of these oe home video and computer formats. 


Get going to your nearest video store and get Q*bert | 
today. And while you're there, check out Parker 7 
— — Brothers’ POPEYE® FROGGER” TUTANKHAM™ 
and SUPER COBRA.” All the great Arcade Action * "(O3PARKE 
games, now in all the great home formats. BROTHE 
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back in the late sixties on the big vacuum tube 
computers.” 

Tired of all the travel involved in his job at 
Litton, Demmer started exploring other possibil- 
ities. He had purchased an 8K Commodore РЕТ 
several years before and started programming. It 
wasn’t his first experience with home computers, 
though. In 1968, he built his own 16-bit micro- 
computer with 32K of memory. “It never did have 
much of an operating system," says Demmer. 
“It’s kind of a joke now, with all of the modern 
languages available. I still use it as a terminal, 
though." 


Saving Time And Space 


Demmer left Litton and joined Batteries Included 
in 1982. Delphi's Oracle was his first project. It runs 
on all Commodore equipment, though it was 
designed on the 8000 series. 

"Information storage on the Oracle is limited 
by the disk drive," says Demmer. "The 1541 disk 
system was never meant to handle relative files. 
You have to coax it into doing it." 

Once files are entered into a data base, the 
computer must perform “housekeeping” func- 
tions. Every bit of available space must be used, 
so the data must be constantly sorted and re- 
sorted. And it can be very irritating if your record 
entry is interrupted by those functions. 


VIC 20 


Now you can have the memory power of 
the 64, flexible memory control, expansion 
port and more. 


$129.95 
МАУ? 


ELECTRONICS, INC. 
Call for vour nearest Mosaic Dealer 
1-800-547-2807, In Oregon 653-7885 


VIC 206 a registered trademark of Commodore Business Machines, Inc. 
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The main menu in Delphi's Oracle provides easy access to 
the main program sections which allow you to create and 
update data base records and files. 


“There are two ways to do the sorting," says 
Demmer. "Since it takes a considerable amount 
of time, I programmed the Oracle to sort after the 
user has finished updating. So there are no more 
time delays after you've entered 6000 records 
than there are after you've entered three." 


Not For The Novice 


Good, clear documentation is essential to using a 
data base successfully. Without it, even the most 
experienced computer user may waste hours re- 
creating files or, worse yet, lose them. 

The instructions accompanying Delphi's Oracle 
run more than 200 pages. Demmer was closely 
involved in preparing this document, and says it 
is easy to understand, but takes time. “Тһе Oracle 
is rather complex for the novice user," he says. 

But, he continues, there are many home ap- 
plications for which his data base is well suited, 
like personal property inventory, keeping track of 
investments, and correspondence lists. 

The Oracle’s output files are compatible with 
PaperClip, a word processing package that is also 
published by Batteries Included. “In conjunction 
with a word processor, the Oracle becomes a very 
powerful package," says Demmer. “It could be 
used very well by someone with a small business." 


More On The Way 


Demmer believes that part of the reason for the 
Oracle's initial success was its early arrival in the 
home applications software market. “There just 
wasn't anything else available," he says. "We 
don't expect it to stay that way, though." 

Besides updating his first versions and trans- 
lating them for use on other home computers, 
Demmer has been working on ^mini-data bases": 
programs designed for one specific Kind of record 
keeping. @ 
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In the 64 version, some tricky maneuvering has the blue 
player nearly cut off. 


Tom R. Halfhill, Editor 
COMPUTE!’s PC & PCjr Magazine 


“CUT-OFF!” is a fast-paced two-player game 
for the Commodore 64 and unexpanded VIC- 
20. Programmed entirely in machine language, 
it has ten levels of difficulty—ranging in speed 
from moderately slow to impossibly fast. The 
VIC version requires one joystick and the 64 
version requires two. Users of expanded VICs 
should unplug or switch off their memory ex- 
panders before typing in or running the game. 
(eee ee] 


Some computer games over the years have become 
classics. Usually they are simple in concept, yet 
universal in appeal, and general enough to be 
translated for almost any computer. Some examples 
are Pong, the granddaddy of all videogames, 
Breakout, Lunar Lander, and the venerable Space 
Invaders. For legal reasons they may be disguised 
by different names, but there probably isn’t a 
home computer or videogame machine anywhere 
for which some version of these all-time favorites 
isn’t available. 

Another classic game is Blockade. Again, it 
goes by different names (sometimes Surround), 
but the basic concept remains the same: Two 
46 COMPUTE!’s Gazette March 1984 


The red player is almost trapped at the bottom, but may be 
able to escape (VIC version). 


players square off against each other by steering a 
moving line around the screen, trying to head off 
the other player or force him to crash into a wall 
or his own trail. This concept dates back to the 
early days of videogames. In fact, the very first 
videogame I ever played was a Blockade-style 
game. It was during the mid-1970s, and a friend 
and I encountered the machine in a dimly lit cafe. 
By today’s standards the game was downright 
primitive. No color, crude sound effects, and slow 
action. Yet we had never played anything like it 
before. (We thought it would never catch on, be- 
cause it cost 25 cents per play at a time when а 
quarter bought you three plays on most pinball 
machines.) 

Years later, the basic concept of Blockade was 
revived and updated in the 1982 film TRON. In 
this Walt Disney production, humans trapped 
inside a bizarre computer world were forced to 
become gladiators on “light cycles"—space-age 
motorcycles which left walls in their wakes, coun- 
terparts of the lengthening trails in Blockade. 

Anyway, that’s the story behind the latest 
incarnation of this popular game, now dubbed 
“CUT-OFF!” It preserves all the traditional con- 
cepts and includes color, sound, and the broad 
range of speed levels possible only in a program 
written entirely in machine language. 


© 

The world inay be short of oil. And short of jobs. But there's no shortage of eritertainment. 
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Notes On VIC Tiny MLX 


Charles Brannon, Program Editor 


There's just enough room їп a 5K (unex- 
panded) VIC to hold MLX. Unfortunately, 
there isn’t room for anything else, such as 
the machine language program you need to 
type in. It might seem you need to use a mem- 
ory expander. This would be unfortunate, 
though, because the machine language for 
the VIC version of “CUT-OFF!” will fit in an 
unexpanded VIC. 

Rather than leaving out some readers, 
we decided to see if MLX could be shortened 
enough to hold both the MLX machine lan- 
guage editor and the machine language for 
CUT-OFF! The only way to do this is to re- 
move parts of MLX. This means you have 
fewer commands at your disposal than in 
the complete VIC MLX program. 

Specifically, these things were cut out to 
Save memory: 


€ the MLX logo 

€ the INPUT statements for starting and 
ending address, and their appropriate error 
checks. Instead, the values you would nor- 
mally use are just assumed in line 210. 

€ the New Address command. This means 
that you have to type in CUT-OFF! all in one 
sitting, since there is no way to change the 
address your typing is POKEd into. Cor- 
respondingly, you cannot SAVE your pro- 
gram until you've finished typing, and there 
is no way to LOAD in a previously typed , 
version of CUT-OFF! 

ө the Display command 

€ as mentioned, the Load command 


What does that leave you? Well, you can 
still flawlessly enter the program on an un- 
expanded VIC. All the error checking with 
checksums remains, as well as a tape or disk 
Save when you finish your typing. Although 
this is a big trade-off, at least you don't need 
an additional memory expander to type in 
and play CUT-OFF! 


Typing CUT-OFF! 

Pure machine language programs are usually 
more difficult to enter than BASIC programs be- 
cause they consist of seemingly endless streams 
of numbers. To make typing CUT-OFF! easier, 
we've listed the programs in MLX format. 

You may already be familiar with MLX if 
you've typed in some of the machine language 
programs published in earlier issues. If you're not 
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familiar with MLX, it’s a utility designed by Pro- 
gram Editor Charles Brannon to make typing er- 
rors almost impossible. To learn how to use MLX, 
see the article describing it elsewhere in this issue. 
Commodore 64 users who have previously typed 
in MLX can use it again for CUT-OFF! VIC users, 
however, must use a new version of MLX adapted 
especially for CUT-OFF! This stripped-down ver- 
sion of MLX (dubbed "Tiny МІХ”) allows you to 
enter the game on an unexpanded VIC, something 
not possible with the full-length MLX. (See 
accompanying article, "Notes On VIC Tiny 
MLX.") 

Here's the information you'll need to enter 
CUT-OFF!: 


Commodore 64 CUT-OFF! 

Starting address—49152 

Ending address—50663 

To run, enter SYS 49152 

To stop, press RUN/STOP—RESTORE 


VIC-20 CUT-OFF! 

(The starting and ending addresses are “built into” 

Tiny MLX.) 

Starting address—6063 

Ending address—7658 

To run, enter SYS 6063 

To stop, press RUN/STOP—RESTORE 

Remember, to load a machine language pro- 
gram from disk or tape, you must use this special 
form of the LOAD command: 

LOAD“filename”,8,1 (for disk) 

LOAD“filename’,1,1 (for tape) 

If you forget to append the ,1 to the command, 
the program loads into the wrong area of memory 
and will not work. 


Starting The Game 


After you enter the proper SYS command, the 
game screen appears instantly. (One of the best 
things about machine language is that you don’t 
have to wait around for programs to initialize.) 

The opening screen allows you to select a 
skill level ranging from 0 (the slowest speed, suit- 
able for youngsters) to 9 (recommended for 
superhumans only). The skill levels are spaced 
equally apart, so you might want to start at 3 or 4. 
The level you select remains the same for the entire 
game. To change levels in the middle of a game, 
press RUN/STOP—RESTORE and restart the pro- 
gram with the SYS command. (Of course, this 
cancels the game in progress.) 

To choose a skill level, move the joystick up 
or down (joystick 1 on the 64 version). You'll see 
the number on the screen change and “wrap 
around” if you go below 0 or above 9. To lock in 
your choice and begin the game, press the fire 
button (joystick 1 on the 64 version). 

The game starts with the players aimed at 


WELCOME ТО APSHAI. 
YOU'RE JUST IN TIME FOR LUNCH. 


Boy, have you taken 
awrong turn. One moment 
you're gathering treasure 
and the next you're being 
eyed like a side of beef. 

You're in the Gateway 
to Apshai? The new cart- 

ridge version of the Computer Game of the Year; 
Temple of Apshai” 

Gateway has eight levels. And over 400 dark, 
nasty chambers to explore. And because it’s joy- 
stick controlled, you'll have to move faster than ever. 

But first you'll have to consider your strategy. 


Game Manufacturers Association, 1981 
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Is it treasure you're after? Or glory? You'll 
live longer if you're greedy, but slaying mon- 
sters racks up a higher score. 

The Apshai series is the standard by 
which all other adventure games are judged. 
And novices will not survive. 

They'll be eaten. 

One player; Temple of Apshai, disk/cassette; 
Gateway іо Apshai, сатта, stick control. 


STRATEGY GAMES FOR THE ACTION-GAME PLAYER. 


Rated THE BEST educational 
program for the VIC 20TM by 
Creative Computing magazine. 


Commodore 64 version: "This 
is the best typing tutor we have 
seen yet; it can get your 
children touch typing in short 
order and bring an old hand up 
to speed. Includes excellent 
training modules and an 
arcade type mode to liven 
things up and put some 
pressure on; xxx +” INFO-64 


Our customers continue to tell 
us of their success. . . . 


1. delighted with my son's 
progress ... he is the only 
one in his second grade class 
who touch types at the computer." 


(58 year old man writes)... "great, excellent. To me a source 
of great learning … | just can't express how much | have 
enjoyed it!" 

In daily use by schools across the USA. 


"Computer aided instruction at its best" Commander magazine 


TYPING TUTOR + WORD INVADERS 
The proven way to learn touch typing. 
COMMODORE 64 Tape $21.95 
COMMODORE 64 Disk $24.95 

VIC 20 (unexpanded) Tape $21.95 


NEW! 
IFR 


(FLIGHT SIMULATOR) 


CARTRIDGE 
FOR THE VIC 20 


COMMODORE 64 
DISK OR TAPE 


$39.95 
JOYSTICK REQUIRED 


Put yourself in the pilot's seat! A very challenging realistic 
simulation of instrument flying in a light plane. Take off, 
navigate over difficult terrain, and land at one of the 4 airports. 
Artificial horizon, ILS, and other working instruments on screen. 
Full aircraft features. Realistic aircraft performance — 
stalls/spins, etc. Transport yourself to a real-time adventure in 
the sky. Flight tested by professional pilots and judged 
"terrific"! 


ШЕШЕН Shipping and handling $1.00 per (dii 
рш) order. CA residents add 6% tax. Ф% 


ACADEMY 
SOFTWARE 


P.O. Box 6277, San Rafael, CA 94903 (415) 499-0850 


Programmers: Write to our New Program Manager concerning 
any exceptional VIC 201M or Commodore 64TM game 
or other program you have deyeloped. 


each other head-on. With the 64 version, joysticks 
1 апа 2 control the left and right players, respec- 
tively. To steer, move the joystick up, down, right, 
or left. Diagonal motion is not allowed. 

Since the VIC has only one joystick port, the 
right-hand player must use the keyboard for con- 
trol. Don’t assume that this compromise neces- 
sarily puts the keyboard player at a disadvantage. 
With a little practice, some people seem to adapt 
to the keyboard and gain more control than the 
person with the joystick. This is due partly to the 
arrangement of the control keys, an arrangement 
sometimes seen in Apple games: 


(up) 
I 


(left) J K L (right) 
(down) 

Notice how this differs from the usual I-J-K-M 
diamond pattern. Although the diamond seems 
the most logical way to go for four-way movement, 
in practice it’s clumsy compared to this I-J-K-L 
arrangement. Try it. Rest your right index finger 
on the J key, your fourth finger on the L key, and 
then move your middle finger up and down on 
the I and К keys to control vertical movement. 
You may want to adopt this pattern for your next 
keyboard-controlled game. 

The joystick buttons toggle a pause feature. 
To freeze the action, quickly press and release the 
button (either joystick button works with the 64 
version). This leaves you free to answer the phone 
or do other things. To restart the action, press 
and release the button again. (The keyboard player 
in the VIC version cannot activate this feature.) 


Scoring And Winning 


There are four ways you can crash: hitting a wall, 
running into the other player's trail, crossing your 
own trail, or backing into yourself by trying to 
reverse your direction. 

After a crash, the surviving player is awarded 
points equal to the number of segments in the 
crashed player's trail. This means that the longer 
the players last before crashing, the more points 
are at stake. Thus, it’s possible to catch up even if 
you're way behind. 

Each time you crash, you lose one “life.” 
Each player starts with ten lives, and the game 
ends when one player runs out. After each crash, 
the screen updates the score and reminds you 
how many lives each player has left. To restart 
each round, press the joystick fire button. 

When the game is over, you get a chance to 
change the skill level for the next game. Just to get 
a peek at how fast machine language can be, try a 
game at level 9. You'll be lucky if you can make 
one turn before crashing into a wall. Yet even this 
level had to be slowed down with delay loops! 

See program listings on page 165. @ 


You'll never make So what'll it be, Mario? Think your tires з 
{ Grand Prix champion just will hold up for another lap? Or should you | ылы. 


f driving in circles. play it safe and go get some new ones? pa; є 
You've got to stop . Think it over. Because Pitstop” is the PITSTOP 
sometime. The questionis one and only road race game where winning 
when. Right now you're is more than just driving. It’s the pits. 79 3 
in the lead. But Ше faster Goggles not included. 
you go, the more gas you consume. And the One or two players; 6 racecourses, 
quicker your tires wear down. Joystick control. 
If you do pull into the pits, though, you lose d yx 
Precious seconds: = ir upto оа make pure Ше “Dy aN. 
pit crew is quick with those tires. careful wit! i 
that gas. Otherwise, poof! you're out of the race. STRAT AES FOR THE ACTION GAME PLAYER: 


“Trenchfire” is a fast-action space game which 
uses the speed of machine language (ML), the 
power of sprite graphics, and a special trick to 
simulate motion. Originally written for the 64, 
we've added an all-ML version for the VIC. 


As the game begins, you find yourself on a distant 
planet, speeding through a trench formed by an 
earthquake fault. You are in your trusty craft, 
attempting to infiltrate evil King Krypos' lair, 
where he holds your king captive. But first you 
must face King Krypos’ deadly kamikaze drone 
ships. The battle never seems to end—you blast 
and dodge debris only to encounter another wave 
of enemy ships. Only total concentration and 
quick reflexes bring success in ”Trenchfire.” 


The 64 Version 


Written in BASIC, with several ML subroutines, 
Program 1 (the 64 version) requires simply typing 
RUN after entering and SAVEing the program. 
Using a joystick in port 1, you must shoot and 
destroy the drone ships before they get too close. 
You can also avoid them by dodging left or right. 
You begin the game with three ships. How- 
ever, anew ship is awarded for every 1000 points 
(a total of seven ships is possible). 
Simulating motion in Trenchfire is accom- 
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e 

plished by switching the colors of a predrawn 
trench. The process uses custom characters in 
multicolor character mode and a short ML routine 
to switch background color registers. Another ML 
routine controls joystick reading and ship move- 
ment to provide fast response. 


The VIC Version 


The VIC version requires an 8K expander to enter 
and save Trenchfire. You must also use the ab- 
breviated version of MLX found elsewhere in this 
issue (see “CUT-OFF!’’). 
Follow these procedures carefully: 
1. Insert the 8K expander, turn on your com- 
puter, and enter this line: 
POKE 44,24:POKE 24*256,0:NEW 
2. Enter the short version of MLX. 
3. Delete line 100 from the MLX program, 
and change the following line: 
210 S —4352:E = 6079 
4. Type RUN. 
5. Type in the VIC version (Program 2) of 
Trenchfire. 
6. SAVE what you typed into MLX to tape or 
disk. 


7. Turn your computer off and remove the 
8K expander. Turn it back on. 


zo 

са 
ES 
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designed by 
C-64 conversion by Adam Bellin 


From the creator of ASTRO CHASE™ (Sci-Fi/Fantasy COMPUTER 
GAME OF THE YEAR, 1984)! and My First Alphabet™ 

(winner of the Atari? Star Award) comes BRISTLES. 

Reviews: A+ “The action is fast and frenetic ... If you want a game 
with definite patterns, strategies, great sounds and plenty of action— 
this is the one.”? #1 Best Selling computer software in New York.$ 
Features: Real Time Animation", Sex-Select™, Slow motion, 1 to 4 
player option, hidden messages, 8 game screens each with 6 skill 
levels, hi-res graphics and "invisible paint." 

Systems: COMMODORE 64™ & ATARI HOME COMPUTERS" 


Actual Game Screens 


Starring Flip the Kangaroo 
and Mitch the Monkey 


designed by 
C-64 conversion by Paul Kanevsky 


This number опе Best Seller is Jim's first game for First Star. 
Here's what the reviewers say about this award winning 
designer's first computer game. 

Reviews: “Тһе audio-visuals are excellent ... A definite HOTLINE 
picked hit.'^ Xxxx (highest rating) ... "quite a different дате" 

“... super graphics, first class sound effects and challenging game play" 
Features: 7 different animated intermissions, game screen actually 
flips upside down, 36 levels, 13 different scrolling screens, arcade 
sounds and music, solo or 2 player option. 

Systems: COMMODORE 64 & ATARI HOME COMPUTERS 


ASTRO CHASE" BOULDER DASH™ 


All computer software available in 
DISK, TAPE and CARTRIDGE 
IN A STORE NEAR YOU. 


Call 1 800-223-1545 


TO CONTINUE 


designed by and For your local dealer/distributor. 
ATARI HOME COMPUTERS ATARI HOME COMPUTERS In New York 212 582-4666 
COMMODORE 64 PC/PC jr.” conversion by 


2 «FIRSF 
5 22 East 41 St., 
|ETURREINC New York, NY 10017 
in affiliation with B. Warner Software, Inc. 
а Warner Communications Company 


conversion by Mike Crick 


BOING!™ 


PANIC BUTTON™ 


m Tre 


Bristles, Astro Chase, Real Time Animation, Sex- 
Select, Flip and Flop, Boulder Dash, BOING! 
and Panic Button are trademarks of First Star 
Software, Inc. Atari is a registered trademark of 
Atari, Inc. Atari Home Computers, Atari VCS- 
2600 and My First Alphabet are trademarks of 
Atari, Inc; Commodore 64 is a trademark of 
Commodore Business Machines, Inc. PC and 
РС Jr. are trademarks of International Business 
Machines, Inc. TRS-80 Color Computer is a 
trademark of Tandy Corporation. 
All rights reserved. @ 1984 First Star Software, Inc. 
Printed in U.S.A. 
1 Electronic Games Magazine 4 Electronic Games Hotline 
2 Computer Games Magazine 5 Video Game Update 
3 East Side Express 6 Dealerscope Magazine 


designed by and designed by 


MAR VOS еЗ TRS-80 COLOR COMPUTER" 


LEARN 


MACHINE LANGUAGE 


Have Complete Control 
Over Your Commodore 64 


e Write Fast-action Arcade-style graphics 
* Fully use the Music synthesizer 

* Completely understand the Computer 

е Develop your skills inventory 


Learn with the Tutorial that comes 
complete with a Full set of professional 
quality development tools. 


Add Machine Language to your bag 
of tricks. 


DEVELOP-64 includes а Co-resident 


Assembler / Editor / Decoder / Debugger / Loader 
/Saver 

PLUS the Machine Language Programmer's 
Bible: 


“Inside The Commodore 64” 


DEVEL 


Call Toll-Free 1-800-328-0145 
orin Minnesota call: (612) 871-4505 


P.O. Box 7426 Minneapolis, MN 55407 
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You must act quickly to defend yourself against the attacking 
spaceships (64 version). 


8. Now LOAD “ТКЕМСНЕІКЕ”,1,1 for tape. 
For disk, LOAD “ТКЕМСНЕІКЕ”,8,1. 


9. Enter SYS 4352 to run the program. 


The VIC version, which is all ML, plays almost 
identically to the 64 version, but has added fea- 
tures. You start with three ships, earn a bonus 
ship for every 1000 points, and can achieve a 
maximum of seven ships. Extra features include a 
pause function (press SHIFT/LOCK) for freezing 


In the VIC version of ""Trenchfire," the player has just 
launched two missiles. 


the game at any time, and four levels of play. 
Press one of the function keys to choose a level: 


f5 advanced 
f7 expert 


f1 beginner 

f3 intermediate 
If you don't choose a level of play, the program 
defaults to the intermediate level. The expert level 
is only for the strong of heart. You also go up one 
level for every 250 points scored. 


See program listings on page 151. @ 


ACCESS 


NOTHING BUT THE BEST 


GENERAL QUARTERS! BATTLE 
STATIONS! As chief commander of land and sea 
forces in the Pacific, your mission is to obtain a 
quick naval victory, and invade enemy territory with 
land forces. BEACH-HEAD vis а 100% machine 
language game and offers multi-screen action with 
high resolution, three dimensional graphics. 
(Suggested retail price...$34.95) 


NEUTRAL ZONE; takes you to the outer 
edges of the galaxy, to ALPHA IV, a long range 
early warning station whose mission is to detect 
alien intruders from other galaxies. | 


NEUTRAL ZONE: is the ultimate in high 
resolution, fast action, arcade quality games. It is 
written in 100% machine language and features 
smooth scrolling of the 360 degree panorama. The 
realism is unbelievable. (Suggested retail 
price...$34.95) 


114 191 
S00. 856 


THO 68 
>>>. еки. 


: E MASTER COMPOSER. is the perfect utility 
Master Composer | for programming music on the Commodore 64. It 
— M о is fun, easy to use and very powerful. Master 
С MON. A E Composer takes full advantage of the sound 
synthesizer to produce all types of music from 
_ simple melodies to intricate compositions. You 
can compose your own musical scores, experiment 
with different arrangements and instruments, 
program your own accompanyment, or just type 
in your favorite sheet music. (Suggested retail 
price...$39.95) 


SPRITEMASTER is not just another sprite 
editor. It's the finest utility available for multicolor 
sprite animation and game programming. It will 
have you making full color animated objects in just 
minutes. People running,birds flying or tanks rolling 
are a snap with Spritemaster. It will automatically 
append your sprites to other programs. It’s easy 
to use and understand and comes with a full 21 page 
instruction manual and samples of animated sprites 
to get your started. (Suggested retail price...$34.95) 


AVAILABLE NOW AT YOUR LOCAL COMMODORE DEALER 
ACCESS SOFTWARE, INC. 925 EAST 900 SOUTH SALT LAKE CITY, UTAH 84105 (801) 532-1134 


Commodore 64 is a registered trademark of Commodore Business Machines, Inc. 


”Poker” is an original color and sound 
version of the classic card game of draw 
poker. The format and style of play are 
similar to those of commercial poker 
machines. Written for the VIC with at 
least 3K memory expansion, we've 
added a version for the 64. 

га 27-525) 


“РоКег” opens with а dynamic intro- 
duction featuring color, sound, and 
horizontal text scrolling. The number 
of each round is announced, and five 
cards are dealt at random. You build 
your hand by choosing which cards 
to keep or exchange (up to three cards 
can be drawn). The computer ranks 
your hand and announces the 
payoff, if any. Your cumulative 
winnings (or losses) are dis- 
played at the top of the 


screen. The higher the hand, the more you 
win. For example, you break even on a pair 
of jacks or better, but a royal flush brings 
you $250. 


Program Features 


The program itself (VIC version) contains 
several interesting features: 


1. The short routine in lines 230 and 
240 scrolls single lines of text hori- 
zontally across the screen. 


2. To conserve memory, lines of text 
used in the introduction are reused 
in the routine that announces the 
rank and value of the hand. 

3. A machine language (ML) routine 

POKEd into the cassette buffer is 
used to create a colorful border. 
The routine is accessed by the 
SYS 828 statement in line 350. 


Harry Blair 


{ 


OFFER SUB 


COMMODORE 64 
SOFTWARE 


Ski thru’ Marine Maniacs, 
G&Ts, Regattas but 
beware the Great White 
Hungry!! 
AQUAPLANE is an 
unbelievable original 
Arcade Game. 


| COMMODORE 64 SKYHAWK 
| SOFTWARE VIC20 SOFTWARE 


Send for Advanced Information 
on our new Timex-Sinclair and 
Electron Range. 


COMMODORE 64 


SOFTWARE 
Attacking raiders scream 


out of the sky at you, you 
check your rad: 
ion blo: 


The Colorful King has 
lost his mind and along 
with it the Crown Jewels! 
Now whosoever can find 
the Jewels shall be 
proclaimed King. 
Can you? 

RING OF POWER is a 
sophisticated adventure 
with a GRAPHICS or 
TEXT option. 


at 


ms 


nding one of the 
plummetti ing, 


Part Man, Part Superman 
the QUINTIC WARRIOR 
stands along against the 

sinister Crabmen and a 
Domed City gone mad in 
the distant future. 
Are you warrior enough 
to stand by his side in this 
MEGA- Arcade Game. 


8K with a Joystick. 


Please send me a free color catalog 


I currently own or plan to buy а. 
| enclose a stamped, self- addressd ‘envelope 


QUICKSILVA INC. 
426 West Nakoma 

San Antonio, TX 78216 
Tel: (5129) 340 3684 


Name . 
No/Street .. 
City .. 

State 

Zip 


OF BRITAIN 


ide, you return their 


ABILITY 


COMMODORE 64 
SOFTWARE 


A fully animated arcade 
game with Loveable 

Turtles, Cuddly Graphics 

and more Cuteness than 
you'll find in any other 

Commodore 64 game! A 
game for the young at 
heart and people who 

have tired of alien 
bashing 


VIC20 SOFTWARE 


Suddenly attacking 
Colony Fighters leap at. 
me, | dive into their midst 
firing and still bombing 
the ground i lations 
below, the sound of 
explosions rumbles away 
over the landscape... 
TORNADO runs on an 
unexpanded VIC20 + 

Joystick 


computer 


іпвасываггекия т се 


HIT ІМ ТО KEEP 
HIT шт TO CHANGE 


a 3 3 
+ + = 


2 PAIR-#3 


++ 


Like real poker, you can keep your hand or draw up to three 
new cards (VIC version). 


4. Lines 30 and 40 (VIC version) check for a 
3K memory expander. Line 50 then alters the 
ML routine to conform to the screen and color 
memory configuration of a VIC-20 with less 
than 8K of expansion memory. 


5. A hand's rank and value is determined by 
using ML and IF-THEN statements in lines 
2110—2210. The machine language performs а 
bubble sort (ranking) of the card values and 
determines which cards are duplicates (two 
kings, three jacks, etc.).The ML routines are 
POKEd into the cassette buffer and are ac- 
cessed in lines 2020 and 2130. 


REM statements are omitted so the game will 
fit in the 6655 bytes provided by a 3K memory 
expander. Those of you with 3K memory expan- 
sion must type Poker exactly as listed. There is no 
extra memory available for spaces within and 
between commands. 


Program Description (VIC Version) 
Line 
20 POKE machine language in buffer. 


Qs бетен Kes aiin raa А 
LOW COST SOFTWARE 


30—50 Detect memory configuration; alter machine 
language if 3K expansion. 

60—210 Read constants. 

220-300 Scroll lines of text with sound. 

310 Set text lines to null strings if they’re not used 
again. 

350-370 Hand number routines; create card screen. 

500-630 Select cards; determine display characters and 
colors. 

640-800 Deal cards. 

810-1550 Keep or change each of the five cards. 

2000-2170 Determine rank of hand. 

2180-2220 Determine value and correct line of text. 

3030-3100 Display determination with sound. 

4030—4050 Subroutine for hand number. 

5000 Subroutine to flash border, colors. 

5050 Subroutine to display winnings. 
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HUGHES 28 
HIT |4 TO KEEP 
HIT H TO CHANGE 


K 6 
44 22 
K 6 - 


3 OF A KIND-$4 


Are three of a kind worth keeping? The decision is yours (64 
version). 


For those who would rather not type it in, I 
will be glad to make a copy of the VIC version. 
Such requests should include a blank cassette or 
disk, a self-addressed, stamped envelope, and $3. 
Mail to: 

А.Т. Kwitowski 

302 Euclid Avenue 

Glassport, PA 15045 


See program listings on page 172. @ 


Are you tired of paying high prices for your software? 
Let John Henry Software save you money! 


We distribute public domain software for your VIC 20™ 
or Commodore 64™. We've tested and documented each 
program to guarantee you hours of fun and useful 
learning experiences. We specialize in prompt delivery 
of your software, even if you order tapes, and we 
guarantee our product. 


You'll also receive our free program reference book 
when you place your order. 


VIC 20 


62 Games for Everyone ............ $7.95 

54 Programming, Demo, Business 
АПСОН $7.95 

35 Educational Programs 


COMMODORE 64 


26 Games for Everyone............ $7.95 


Group VG 
Group VP 


Group VE 


Group CG 


Group CP 30 Programming, Demo, Business 

and Home....... -$7.95 
Group CE 16 Educational Programs . -$7.95 
Group CA 5 Adventure Games (disk only) ..... $7.95 


When ordering, specify group and tape or disk. 
Send check or money order payable to: 
John Henry Software 
Р.0. Box 39021 
Cincinnati, Ohio 45239 
Don't wait! Order your software today! Or write for your 
free program reference book. You'll be glad you did! 
VIC 20 and Commodore 64 are trademarks of Commodore Electronics Limited. 


Disk Drive Excellence 


Every. now and then a new product design 
| Seems intended to fast forever... 


| DON'T MISS OUT ON OUR GREAT 
HARDWARE AND SOFTWARE 
DEALS FOR THE VIC-20/C64. 


Take our new v and dual Super Driver for Commodore computers. Their basic 
drive mechanism is industrial quality. designed, tested, and proven to take more use 
and оошо than most personat computing Systems ever do. Super Drives won't break. 
g 2 2 down after only a few month's 
use, These drives recognize | 
the full Commodore disk im | 
struction set and come with 
both serat and IEEE inter- 
faces. So, Superdrives are | 
fully compatible with PET, 
Vic-20, and Commodore 64. 
computers.not just one or | 
the other. 2 


Super drives are loaded 
with extras For instance, each - 
one comes with an extra 8K 
of RAM inside the disk unit, а 
Sophisticated 16K ROM oper | 
ating system а futuristic self 
diagnostic routine, and high | 
speed disk formatting. Your 

Superdrive comes complete 

with all cables and connectors 

plus instructions to put it into use 
immediately. Single drives аге $399.95 - 2 
and dual drives are $699.95. Please add 
$6.95 for shipping and insurance, VISA | 

" апа Mastercard are accepted Ву the way, | 
these drives are in ar 9 Immediate oe | 

ment 


Superdrives cost more than other drives. But the n 

- you'd expect to pay more for Excellence. Remember, no. 
опе was ever sorry they bought the best. Order your own. 

E single or dual Superdrive today and step up to a new level of Disk. Drive Excellence. _ 


Bythe way, we. specialize in unique and hard to find items for your Commodore com- 
puter wie ог call for a free copy of our software and peripheral brochure! 2 


(Dealer inquiries Invited) 


Send in your name and address to 
receive our FREE catalogs on fantastic 
hardware and software for your VIC- 
20/C64. We are dedicated to bringing you 
the best quality and/or least expensive Ñ 
items for your computer. Take advant- 
age of our special introductory offers. 


Mark off the reader service card (if this 
magazine has one) or send in your letter 
TODAY. 


OMNITRONIX 


PO BOX 12309 DEPT. FG 
SEATTLE, WA 98111 


| E. Arthur Brown Company 
| _1702- СО1 Oak Knoll Drive | |. Ph: 612/762-88: 
Alexandria, MN 56308. | 612/762-1 631 


IS НЕВЕ..." 


The CONNECTION" is truly the ultimate parallel interface for the VIC20™/COMMODORE 64'M, This fully intelligent 
interface plugs into the disk (serial) socket just like the standard printer and you can easily assign it any device 
number. It will provide virtually TOTAL EMULATION of the Commodore® printer including all standard graphic 

characters (normal or inverse), column tabbing, dot tabbing, graphic repeat, dot addressable graphics, cursor 

up/down mode, and more. It responds to all of the standard commands (PRINT #, OPEN, CLOSE, etc.) to 

Dealer And insure software designed for the Commodore? printer will operate with the CONNECTION™. Use it in the 

Distributor TOTAL TEXT MODE, or purchase our Universal" CONNECTION that works with virtually EVERY DAISY 

a WHEEL OR MATRIX PRINTER with standard Centronics Parallel configuration. To take full advantage of 
Inquiries your printer's special features, please specify the printer type. Available for STAR MICRONICS, ВХ80, He 

Invited EPSON, OKI, NEC, PROWRITER, BANANA, SEIKOSHA, RITEMAN, GEMINI10X and others 

ONLY $119.00 Complete. (Additional ROMs are available if you should ever change printers). 


THE CONNECTION PROVIDES: 

1) A 2K Printer buffer. 

2) Full LED Status indicators. 

3) Complete Built in self test. 

4) Printer reset switch. 

5) Adds Skip over perf, margin set, programmable line length, program 

list format commands to your printer. 

6) No need for extra cost, special tape loader for graphics. 

7) All features easily accessed from software. 

8) ASCII conversion, TOTAL TEXT, EMULATE, and TRANSPARENT Modes. 
ORDER FROM "Note: Only the Universal CONNECTION will not provide 10096 Commodore graphics. 


Micra 
1342B RT 23 
МЕГЕ BUTLER, М.) 07405 201-838-9027 


Tree Tutor 
For Tots 


Janet Arnold 


This educational program uses custom charac- 
ters and lively graphics to teach addition to 
young children. Correct answers are rewarded; 
there are no penalties for guessing wrong. 
Originally written for the VIC-20, we’ve added 
a version for the Commodore 64. 

[sl 


Arithmetic is for the birds—if your youngster 
plays "Tree Tutor For Tots." This math program 
is suitable for small children (preschool through 
second grade) who are just learning to add. It is a 
tutor, not simply a drill, because it illustrates ad- 
dition concepts using colorful, attention-getting 
graphics. 

The child adds the apples hanging in a tree to 
those scattered on the ground. A correct answer 
brings a bird swooping from the sky to pluck an 
apple from the tree. The bird then drops it into a 


basket and flies off the screen. After ten right an- 
swers—and ten apples stacked in the basket—the 
game ends. 


Choosing Levels Of Play 

LOAD the program and RUN it. After a short 
wait, the title appears and you are asked to 
“Choose highest sum (2-9).” Hitting a 7, for in- 
stance, generates problems with answers no 
higher than seven. A beginner should choose 2, 
proceeding to the harder problems as the easier 
ones are mastered. 

Next you are given an option for displaying 
the fruit. A beginner should hit 1; this tells the 
computer to show the apples when the problem 
is first printed. A 2 causes the fruit to appear only 
if the child gives a wrong answer. 

When the tree and the problem are displayed, 
guide your child to discover the correct answer by 


Four apples in the tree plus one on the ground. What does it 
add up to? (VIC version) 
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In the 64 version, the child has answered correctly. The bird 
is carrying an apple to the basket. 


Kids climb to the top in 
our playground... 


Because we offer more than just educational games. Our unique software brings the. magic touch of the 
Edumate Light Pen™ together with the amazing computer voice of S.A.M.™ the Software Automatic Mouth, so children can interact 
directly with our teaching programs. Playground Software™ makes learning and learning to use the computer child’s play! 


Our playground of active, colorful animals will have your 
child spelling new words in no time at all. Animal Crackers™ 
combines the use of the Edumate Light Pen™ and children’s 
fascination with animals and computers to teach your 
children the alphabet as they learn to spell. By simply 
touching a letter on the screen with the Edumate Light Pen™, 
your children will create a screen full of animals and other 
playful objects. Not only is it fun, it’s educational! 


Unleash the creative talents of the big kids and the little kids 
in your family with the first electronic coloring book. Com- 
puter Crayons™ comes complete with ready-to-paint scenes 
and an artist's palette of vibrant color. Additional options per- 
mit you to save and restore pictures easily, draw circles, lines, 
boxes, and erase in a single stroke. 

Let your imagination run wild with the Sketch Pad that 
allows you to create your own video paintings from scratch. 

Now anyone can transform our Edumate Light Pen™ into 


an electronic paint brush with Computer Crayons™! 


The most fundamental lesson every child must learn is how 


to draw the letters of the alphabet. The Alphabet Arcade™ 
utilizes the Edumate Light Pen™ and an exciting arcade en- 
vironment to provide the children with an innovative way to 
acquire basic lettering skills. Mistakes are noted immediately 
and correct entries rewarded in a series of action-packed set- 
tings that will delight and inspire your children. Discovering 
the alphabet has never been this much fun! 


Playground Software" presents a series of engrossing tales 
that use our Edumate Light Pen™ and your child's imagina- 
tion to tell a story. 

Our first Bedtime Story enlists the aid of your child to help 
Little Red Riding Hood escape from the Mean Old Wolf, and 
has all the colorful animation and full-scale sound that 
children love. 

Your child will be taught letter and word recognition while 
having all the fun that goes along with helping to tell a story. 
So let your child play a part in the first of our interactive and 


ional bedti ies... Lit idii ооа! 
All Playground Software is lightpen and joystick compatible. educational bedtime stories… Little Red Riding H 


Playground Software...Kids are all over us! 


Each package $29.95 on disk or cassette. Prices subject to change without notice. See your local dealer or order direct from p.o. box 3470, 
department cg, chapel hill, north carolina 27514. Add $3.00 for postage and handling. Credit card orders call 1-800-334-SOFT. 


During December and January you can take advantage of our Special Christmas Offer and receive an Edumate Light 
Pen™ (retail price $29.95) for only $44.95 when you purchase all four Playground Sottware™ packages, or receive a 10% 
discount toward the purchase of the Edumate Light Pen™ when you buy any Playground Software™ program. 


Atari 400/8007М and Commodore 647 are trademarks of Atari Inc. and Commodore Electronics, Inc. respectively. S.A.M.TM is a trademark of Don't Ask Software. 


saying something like, ”There are two apples in 
the tree and one more on the ground. See this 
problem? It says 2 plus 1. How much is two and 
one? Let's count the apples and find out.” Point 
out that the number of apples in the tree is the 
same as the top number of the combination, and 
that the number of apples on the ground matches 
the bottom number. Your child will learn that the 
apples are a picture of the addition problem. 

When you think your youngster is ready, 
suggest trying to answer without counting the 
apples, using fruit option 2. Ifthe answeris wrong, 
the apples appear on the screen; your child can 
count them to discover the correct sum. 

An apple is dropped into the basket for every 
right answer, even if it took several guesses, as an 
incentive to keep trying. After collecting ten ap- 
ples, you receive a message stating the total tries, 
although a preschooler probably won't care. He 
or she will, however, enjoy seeing the bird fly 
down to land on the message, which is a further 
incentive to complete ten problems. 


Incorrect Keys Are Ignored 


Because tots often hit the keyboard accidentally, I 
set up lines 10, 14, and 78 (VIC version) to accept 
only numerals in the stated range. Every other 
key will be unresponsive (except for the RUN/ 
STOP key). The program uses a GET statement, 


new COA blockbusters 


THE slot machine connoisseur's only 
serious choice! BANDIT includes both dou- 
ble progressive and standard 5 pay-line type 
slot machines (menu selectable). Both slots 
realistically simulate the action and feel of 
the real thing. With separate status screen. 
100% machine code 


222 
1) C-64 DISK ... 


E 
Was %, 
К! 


Can you save your orchard from those awful 
tree-eating caterpillars? Better watch out for 
their devious offspring..... those dreaded 
killer and mutant moths! 


KILLERPILLER shatters the myth that a great 
action game has to be expensive. Try it today! 
100%, machine code, 2 skill and 7 screen 
levels. 

C-64 DISK 

C-64 CASS 


Vic-20 versions available 
or order direct. 


.See your dealer 


P.O. Box 350 
New Castle, DE 19720 
Call: (302) 429-8565 Add $2 Shipping & Handling 
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so the child need not hit RETURN after entering 
an answer. Line 76 resets the number of characters 
in the keyboard buffer to zero, in case a key was 
pushed between problems. 

Here is a program description of Tree Tutor 
(line numbers for the 64 version are in parentheses): 


Lines Description 

2—6 (100-180) Title, custom characters created, variables 
set. 

8—14 (190—240) GET highest number desired; GET fruit 
option. 

16 (250-260) POKE basket. 

18 (270) Main loop—count ten correct answers. 

20-22 (280-290) Choose problem (see paragraph 
following). 

24 (300) Erase former tree, problem, and message. 

26—38 (310—410) PRINT tree and problem. 

40—74 (420—590) POKE fruit. 

76—80 (600—620) GET and judge answer. 


82—84 (630—650) 
86—106 (660—800) 
108—122 (810—920) 


Routine for wrong answer. 

Reward correct answer. 

Reward ten correct answers; “р!ау 
again” option. 

124—126 (930-940) Subroutine for falling apple. 
128-138 (950-1000) Data for custom characters. 

When the computer chooses an addition prob- 
lem in lines 20-22 (280-290 in 64 version), it first 
generates a random top number anywhere from 
one to the highest number family (F) selected by 
the user. The bottom addend is never greater than 
F minus the top addend, so that the sum will never 
be greater than F. ТІ and В1 hold the values of T 
and B, the top and bottom addends, from the last 
displayed problem. This is to insure that an iden- 
tical problem does not follow immediately. 

One oddity you will notice—my children 
discovered it right away—is that the apples in the 
tree are different than the apples elsewhere on 
the screen. The program POKEs the tree apples 
in multicolor mode, which causes some loss of 
horizontal resolution. This results in a boxier- 
looking apple, but it does fill in the empty spaces 
around the apples with green, the border color, 
rather than with white, the screen color. 

My older son strongly dislikes seeing two 
shapes of apples, so I devised the following pro- 
gram change for those who share his idiosyncrasy: 

Line 

128 (950 in 64 version) Change first eight numbers to 

240,60,255,255,255,255,255,60 

This program uses up most of the memory in 
an unexpanded VIC, so don’t add any unneces- 
sary spaces. 

I will make a copy of Tree Tutor for Tots (VIC 
version only) if you send a blank tape, a self- 
addressed, stamped envelope, and check for $3 to: 

Janet Arnold 
620 Alger 
Owosso, MI 48867 


See program listings on page 148. G 


WE DO ALL THIS FOR YOU. 


Better Letter & Writer™ 

We write your letters. Invitations. 
Resumes. Announcements. 
Applications. Greetings. And many 
more. 100 letters just waiting for 
you to fill in a few simple details, and 

. . . PRINT! Select a letter and load 
it into your favorite word processor. 
Ifyou don't have one, use our simple 
to operate Better Writer™ 

supplied with the package. 


Thank You Letter 


Supports most word processors using your computer ASCII format. $34.95 on disk for Commodore 
64 and Atari (16K) computers. Soon for Apple, IBM and Coleco computers. 


Home Decorator™ 

By Stephanie Neuman, Ph.D. 

We decorate your home. Or your office. We teach you about colors, furniture 
layout, and even the theory Беһїпа її. Then, by following simple instructions you 
select carpeting, paint walls, move heavy sofa beds — and you get to see it 
BEFORE you make costly mistakes. Amazing! 


$34.95 on disk for Commodore 64. Soon for Atari, Apple, IBM and Coleco computers 


Ez/Disk™ 

We turn your disk drive into a powerful, simple to use machine! No more lengthy 
Basic commands … call the menu anytime, your program in memory remains 
intact until you Load or Run another. Indispensable tool for every drive owner. 


$24.95 on disk for Commodore 64 and VIC 20 computers. 


Ez/Disk Plus™ 

We give you even more! All Ez/Disk 
functions, PLUS: copy disks with 

one or two drives, print files directly 
from disk, and more. 


Menu 3 


$34.95 on disk for Commodore 64. 


Quick Touch Typing™ 


We teach you typing. Step by step. 


Easy to follow lessons even kids 
will love. And then, we make you 
type FAST. You actually watch 
your speed increase with every 
drill! 


Re cours wrens Eee 


esson 1: HOHE KEYS B 


99805898080 


| 00000000000 

BO00090000000 

BJ000000000E 
[клем ти — | 


Lesson 1 


$22.95 cassette, $24.95 оп disk for Commodore 64 and Atari (16K) computers. Soon for Apple, IBM 


and Coleco computers 


Menu 1 


Keyboard Soft/Lay™ 

We save you time. All you need is 
immediately at your fingertips. No 
more endless paging through 
manuals and books. Basic 
command, memory locations and 
maps, sprites, sound and more. 


$8.95 for Commodore 64 and VIC 20 computers. 


Perspective 


83 So tren; Inc 
зак Lan) yh 


Menu 2 


SoftiLay 64 


ASK FOR THESE SOFTRON PRODUCTS AT YOUR FAVORITE COMPUTER STORE OR, DIRECTLY FROM US: 
150 Nassau Street = Suite 2024 = New York = New York 10038 = Telephone: (212) 608-2922 = Orders Only: (800) 237-8400/Ext. 111 
Dealer and Distributor Inquiries Invited 


SOFTRON. INC. 


WE MAKE YOUR LIFE EASIER. 


Send check or money order plus $2.00 to cover shipping costs. Add $3.00 for COD. New York residents add 8.25% sales tax. 


Commodore 64, VIC 20, Apple, Atari, IBM and Coleco are trademarks of Commordore Electronics, LTD., Apple Computer, Inc., Atari, Inc., IBM Corp. and Coleco respectively, SOFTRON, Better Letter Writer, 
Better Writer, Home Decorator, Quick Touch Typing, Ez/Disk, Ez/Disc Plus and Keyboard Soft/Lay are trademarks of SOFTRON, Inc. 


© 1984 бойгоп Inc. All Rights Reserved 


“Guess America!” is a historical game, and 

it’s fun. The goal is to travel across the U.S. in 
a covered wagon by answering questions about 
history, geography, and current events. Ques- 
tions can be added or modified, making it 
possible to create a customized quiz or review 
for children at any learning level. 

BS) 


“Guess America!” is an educational program that 
uses the 64’s sprite and graphics capabilities. After 
randomly selecting a key word, the program 
scrambles and displays it. You have 15 seconds to 
type in your guess with the correct spelling. If 
you cannot answer correctly, you are given a clue. 
A second and then third clue (each a little easier 
than the one before) are given if you still don’t 
have the correct answer. 

After five words have been selected, the game 
is over. A covered wagon then travels westward 
across a map of the U.S., and the higher your 
score, the farther the wagon travels. A high score 
will get you all the way to California. 

The game may be repeated as many times as 
you wish. Each new game, the computer will 
randomly select five words froma list of 31. Ifa 
key word happens to be selected more than once, 
the second scramble will usually be different than 
the first. 


Modifying The Program 

The game can always remain fresh because you 
can very easily modify or add key words and clues. 
Your only limit is the computer’s memory. (As 
written, the program uses about 11K.) 

Terms can also be changed so that they rep- 
resent a single topic—U.S. presidents, or inven- 
tors, for example. To delete a key word and clues 
permanently, omit the entire DATA statement 
when typing in the program. You can also simply 
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A series of clues is given if you can’t unscramble the word the 
first time in Guess America. 


insert a REM after the line number if you wish to 
temporarily delete a DATA statement. Just remove 
the REM if you wish to use the DATA statement 
before running the program. 

To add words and clues, use this format: 

Line number, DATA, key word to be scrambled, 

clue 1, clue 2, clue 3 
Be sure to always include commas between words 
and clues. If clues are long, two line numbers and 
DATA statements may be used. The key word 
may also include a hyphen or space (as in New 
York), but not commas, colons, or double quota- 
tion marks. Make sure that the line DATA *,*,*,* 
is the last DATA statement in the program. 

If you'd rather not type in the program, I'll 
make copies on tape. Send a blank cassette, $3, 
and a self-addressed, stamped mailer to: 

Ellen Barcel 
P.O. Box 39 
East Setauket, NY 11733 


See program listing on page 155. @ 


What do you like best about 
COMPUTE!s GAZETTE? 


It teaches me more about my Commodore 64 than any other magazine. 
Smiley ikea on Wow лум. work, > 
ir dr 26-23 ее е ес 2425-22 ее Cod writers! 
(ML The Gazette Feedback column. 
L rate 16 the Pest maga zine br my needs Zu Mr vea) wif, 
Vo 552224 prej erg os TM NEW КТ COMPUTING; THE GAZETTE 
Is VERY HELPFUL С же- pelo = 
шга > еее The articles on Machine 
Language Tot Ier grain. Vader ` 
It's not too technical for the average person. Al жге 
е ера The ads anel r NIEUWS MILES. ABOUT 
ZI DH Ар мире AL ыма лды The 
programming tips and reviews - бия “ОУ 
2 Your professional writing; you һауе very 
knowledgeable authors M Que Холли Со سیه‎ 


The above comments are from The Editor’s Feedback Cards, a monthly part of our continuing dialogue with 
the readers of COMPUTE!’s GAZETTE. 

Every month, readers of COMPUTE!’s GAZETTE get ready-to-type-in games and applications programs, 
tips on programming in BASIC and machine language, reviews of new hardware and software, feature articles 
that explain and entertain, and much more. f 

If you would like to become a GAZETTE subscriber, return one of the subscription cards in this issue or 
call the number below. The basic subscription price of $20/year saves you $10 off the newsstand price. Why 
not subscribe today? Call Toll Free in the US 800-334-0868, 919-275-9809 in NC. 


СОМРИТЕ 5 GAZETTE 


P.O. Box 961 Farmingdale, NY 11737 


Sea Route To India: 


A Historical 
Simulation For 
The 64 


M. J. Winter 


Here's your chance to 
make history on the 
”Sea Route to India.” 
Following in the wake 
of Portuguese explorers, 
you can find gold and 
adventure, if you don't 
starve, or get sunk by 
pirates, or capsize in a 
terrible storm. 

ысы ee 


One of the earliest games for PET computers was 
Westward Ho, in which the player becomes a turn- 
of-the-century pioneer, trying to cross the country 
ina covered wagon. Decisions must be made about 
purchasing food, supplies, and ammunition. 
Various experiences—hunting, Indian attacks, 
settlements—occur on each leg of the journey. By 
repeatedly playing the game, the user learns 
where to spend money, how to hunt, and whether 
to trust strangers. Luck, however, is a major factor 
in success. PET users of all ages played the game 
over and over until they finally reached the West 
Coast. 

Westward Ho was an abbreviated version of 
Oregon Trail, in which the game's designers took 
pains to produce an accurate simulation. They 
used prices from contemporary catalogs, and 
calculated frequencies and likely locations of 
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Rounding the Cape of Good Hope in ”Sea Route To India.” 


Indian attacks by study- 
ing historical accounts. 
The result was a game 
that was both interesting 
and informative. 


Sail The 
Bounding Main 


”Sea Route To India” uses 
a similar technique, 
drawing on the voyages 
made by Protuguese explorers in the fifteenth 
century. 

The subroutine beginning at line 15000 intro- 
duces the game and gives you the rules. 

Your goal is to sail from Lisbon around Africa 
to India. During the voyage, you encounter the 
same dangers faced by the real explorers: hunger, 
thirst, pirates, natives, weather, mutiny, and at- 
tack by Arab traders. 

Your journey is charted in weeks on a map 
displayed on the screen. Lines 500—800 contain 
the loop for each week. The miles you sail depend 
on the weather. Each week your store of water, 
food, and supplies decreases by one unit. If your 
voyage lasts more than 30 weeks, the crew’s hap- 
piness also decreases by 1. 

Each week you have a new experience; line 
560 sends the program to the appropriate event. 


ТАКЕ 
BREAK! 


— ج‎ е Ы ——— — — —] 
L— A — 7 P SF 


WITH NIGHT MISSION 


PINBALL. 


You deserve the best. You’ve earned it. Now reward yourself with a session of Night Mission PINBALL, 
the most realistic and challenging arcade simulation ever conceived! = Stunning graphics and dazzling 
sound effects put Night Mission PINBALL in a class by itself. Game features: multi- 
ball and multi-player capabilities, ten different professionally designed levels of play, 
and an editor that lets you create your own custom modes. = So take a break with 
Night Mission PINBALL from SubLOGIC. Winner of Electronic Games magazine's 
1983 Arcade Award for Best Computer Audio/Visual Effects. 


See your dealer... SUDLOGIC 


or write or call for more information. For direct orders please add $1.50 for A 
shipping and specify UPS or first class mail delivery. Illinois residents add 5% Corporation 
sales tax. American Express, Diner's Club, MasterCard, and Visa accepted. 713 Edgebrook Drive 


Order Line: 800/637-4983 ШЫНЫН саго 


In the early part of the voyage, you sight whales Readers who do not want to type in the pro- 
and other ships, and sail into terrible storms. But gram can obtain a copy by sending a blank tape 
after you pass the Cape of Good Hope and pick ог disk, a stamped, self-addressed mailer, and a 
up your Indian pilot, you might be attacked at check for $3 to: 

any time by Arab dhows. M. J. Winter 


Math Department, Michigan State University 
Check Your Progress Every Week fast Lansing, MI 48824 


At the end of each week, the program assesses 
your situation. If you sailed far enough to visit 
the Canary or Cape Verde Islands, then your 
water, food, supplies, and crew happiness are 
restored. The ship's log is updated, and the game 
map shows your progress. Lines 91—93 define 
DT$ (dots); three characters are needed for each 
dot. One dot on the map represents 200 miles 
(line 1002). Then, if there have been no fatal short- 
ages, the voyage continues for another week. 
Your ship ”sails” across the screen in line 
15155. In the race (lines 3093, 3096), the ships are 
placed at the right of the screen and a string of 
DELETES is printed several times. (If you win the 
race, the crew is happier; they become disgruntled 


See program listing on page 159. @ 


COMPUTER CASSETTES 
58¢ 


FREE “States and Capitals Game” 


with each order of 20 or more С-105 
Specify VIC-20 or Commodore 64 

C-10 Length 

5 Screw Shell/Free Labels 

Lifetime money back guarantee 

Storage Box add 12¢ each 

$2.00 shipping charge — any quantity 

(Canadian orders $4.00 shipping) 

* NJ Residents add 6% sales tax 

+ Send check or money order to 


by a loss.) SETS TTT TTT TTT 
Lines 1000-1250 contain the whale hunting PARALLEL SYSTEMS. 
Box 772 


routine. The whales are within a long string (F$) ete A ONE 
of shifted spaces, which are cyclically rearranged 609-227-9634 

(line 1210) and the leftmost 40 characters printed —— 
each time. The program checks the keyboard, 


then moves the whales until you press H, which For Commodore 64™ 
drops the harpoon. The program then alternately SPANISH VERB TUTOR 
moves the whales and lowers the harpoon. САТА ЕНЕ 
То check whether the harpoon hits a whale, If you can't find it here you probably shouldn't say it. 

the screen is opened for INPUT (line 1100). The COMPLETE CONJUGATIONS OF THE 
entire row of the screen to the right of the harpoon EIGHT MAJOR TENSES 
DER E 3 5 Including those tricky irregular verbs 
is input. If the first character is not a shifted space, STUDY LEVELS 

i Beginner College 
a whale has been hit. ES PAT ONS 
Landfall To Gather Supplies 

5 Ке Қ $ $29.95 for Cassette 

The subroutine beginning at line 4000 describes Write for information or send check or money order to: 
the sighting of a river mouth. Landing offers you PRONTE TABE 
a chance to get food and water, and to cheer up Hartford, CT 06114 
the crew. Sometimes (line 4060) natives appear. Commodore 64 is a Trademark of Commodore Electronics Limited 


As many early explorers discovered, they are 
unpredictable. Sometimes they are friendly and 
trade gold for trinkets (cheering up the crew); 
sometimes they attack. 

If they attack, you must type RUN and press 


INCOME TAX BY SOFTAX 


DO YOUR 1983 INCOME TAX RETURN ON THE 


RETURN quickly. The clock is set to 0 in line 4320, COMMODORE 64 

H H PREPARE YOUR OWN RETURN QUICKLY AND EASILY. DO RETURNS 
to time how fast you typed in RUN. After you FOR OTHERS FOR CASH! COMPARE INVESTMENT STRATEGIES. 
press RETURN, the program looks at the clock. If оков DISKETTE ONLY: $69.50* 55, 
more than 200 jiffies have passed (line 4340), the YOU GET: Form 1040, Schedules A, B ©, D, E, G SE, W and Form 

: : 2441. Menu Driven. Print File and Input Storage Capability. 
BE attack and kill Um h h BONUS: Form 1040 with the 1964 Tax Rates! (See what that tax 

аа р g shelter may be worth on next year's return.) 
ХӨ ae DR CH pes 5, Du pes DISCOUNT: Coupon included for a discount on the 1984 version of 
c e Ara ari ler! E Softax. 
mined to protect their trading routes. Vasco da ЖА, ДЕНТ А Шш КЫША ОЛ Боле 
Gama himself was nearly trapped by them more Sd 
SOFTAX, INC. Р.О. BOX 332 ST. PAUL, MN 55102 
than once. С { (612) 224-7477 
The program as written will run on a Com- COMMODORE 64 is a Trademark *Plus $1.50 POSTAGE. MINNESOTA 

modore 64 or PET. of Commodore Electronics, LTD RESIDENTS, ADD 6% SALES TAX. 
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Data Manager 


For The Commodore 64 


Dale F. Brown 


Simplicity, versatility, and low 
cost are the attractions of Data 
Manager, an information collec- 
tion and retrieval system from 
Timeworks. It's not the most 
sophisticated data base system 
around, but Data Manager is a 
good solution for those seeking 
a simple, easy-to-run, com- 
puterized index card system for 
home or personal applications. 
The program, while not 


cally moves to the end of the 
data file. You enter information 
for each line of the record, then 
you can correct your entry. If 
everything is correct, the. pro- 


gram writes your record to disk. 


When you replace a record, 
each replacement line is written 
to disk as you enter it, so this 
process can be a bit slow. 


Retrieving Data 
Once all your records are en- 
tered, you have several ways to 


recall and display the data. You 
can search and recall by exact 
name, by data pointers, or-by 
index codes. 

Data pointers are references 
to lines within the records—b> 
might be used to search for birth- 
dates, or tpsc> might be used to 
find top scores in your bowling 
records. The index code might 
be (R) or (F) entered into your 
address records to differentiate 
between relatives and friends. 

If, for example, you wish to 
find the names of everyone in 
your records with a birthday in 
June, you could use the Б» data 
pointer and specify a range of 
06/01/00 to 06/30/00. 


endowed with blazing speed or 
a lot of fancy options, can bring 
some organization to your 
Christmas lists, club member- 
ship records, bowling team 
scores, addresses, or account 
numbers. 

If your goal is to crunch a lot 
of information, process long 
columns of keywords, or do 


No Foolin’ Around 


The Commodore 64 is your first “real” 
computer. So, it stands to reason that 
the software you use be real too. And, 


useful. 


The INSTA series productivity 
software is just that — real and useful. 


With our tutorial manuals and HELP 
SCREENS we actually teach you what 
word processing, spreadsheets and 
graphs аге all about. * 


Games are fun....for foolin around. 


extensive cross referencing, Data 
Manager might fall short of your 
expectations. 


Have A Plan From 
The Beginning 

Data Manager initializes a disk 
and formats it when you start up 
the system. Before formatting, 
however, you must decide how 
many lines per record you want. 
Once the data disk is formatted, 
you cannot change it. 

Records can have from one 
to eight lines, with up to 30 char- 
acters per line. A normal data 
disk will hold 1040 five-line 
records. 

When new information is 
entered, the program automati- 


INSTA is for real. 


М ] 7 ТА тм 

| < | С \ 
АРҒА" 

By Cimarron a division 

of MICRO SCI CORP. 

2158 Hathaway Street 

Santa Ana, CA. 92705 

(714) 241-5600 


MICROSCI 


INSTA-SCHED. 


Commodore 64 isa 
trademark of Commodore 
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The X-Search 
Function 


Data Manager includes an X- 


Search feature that allows you to 
perform secondary searches on 
your data. In the example above, 
you asked for the names of 
everyone with a birthday in June. 
You could take it a step further 
and use X-Search to search that 
data subset for records that con- 


tained an (R) index code. The 
result would be a list of your 
relatives who had birthdays in 
June. 

After using X-Search, you 
can print out the results and 
then use X-Search again and 


again to search for differentindex 


codes or data pointers. 
The program also allows 
you to retrieve and analyze 


We'll back you up! 


numerical data within records. 
For example, if you used tpse> in 
each record to display the top 
bowling score of each member 
of your bowling club, you could 
retrieve that data, add it, average 
it, compute a standard deviation, 
and draw a bar chart of the in- 
formation. 

Data Manager includes a 20- 
page manual that takes a bit of 
study to fully understand. But 
once you learn the basics of rec- 
ord entry and retrieval, you'll 
find the program a good tool for 
organizing and maintaining per- 
sonal and household records. 
Data Manager 
Timeworks, Inc. 

405 Lake Cook Road 

Deerfield, IL 60015 

(312) 291-9200 

$24.95 a 


Purple Turtles 


Lance Elko, Editor 


Quicksilva, an established British 
software house, has entered the 
U.S. market. One of its initial 
offerings is Purple Turtles—a 
unique and charming arcade- 
style game. Written by Mark 
and Richard Moore for the Com- 
modore 64, Purple Turtles uses 
the 64's sound, color, and 
graphics to great advantage. 

At first, Purple Turtles might 
strike you as one of the most 
colorful and lively games you've 
ever seen on the 64. But, you 
might also jump to the conclu- 
sion that it's a game just for chil- 
dren. After playing for a few 
minutes, though, you might 


ATTENTION COMMODORE 64 OWNERS 


If you own a disk drive then you'll need “The 
Clone Machine". Take control of your 1541 with this 


package that includes: 


1.) Complete and thorough users manual 
2.) Copy with one or two drives 
and back-up many 


3. Investigate 
“PROTECTED” disks 


y 4 


4.) Copy all file types including relative types 
5.) Edit and view track/block in Hex or ASCII 
6.) Display full contents of directory and print 
7.) Change program names, add, delete files 


with single keystroke 
8.) Easy disk initialization 
9.) Supports up to four drives 


Li 5 


Dealers & Distributors 
Inquiries Invited 


Special intro *39.95 % 


Micro 
CALL (201) 838-9027 


ШАГЕ’ 


=) 


P.O. Box 113 
Pompton Plains, N.J. 
07444 


well change your mind. 

The game's instructions are 
concise and clear. The opening 
scenario, complete with a game 
demonstration screen and a de- 
lightful melody that’s somehow 
vaguely familiar, scrolls options 
across the screen center—press 
the space bar to start, I for in- 
structions, and H for high 
scores. 

Selecting I gives you all the 
information you need to play 
the game effectively. The game 
options are spelled out. You can 
choose to play using the joystick 
or keyboard. You can press RUN/ 
STOP—RESTORE to reset the 
game. Or select one of ten levels 
for game speed or skill level. 
And the ever-welcome pause 
function is included. Pressing P 
freezes the game until you're 
ready to resume by pressing it 
again. 


More Than Meets 
The Eye 


The object of the game is to cross 
a pond by hopping on the backs 
of four very fickle turtles, gather 
fruit, and return. Sounds easy, 
but it’s not. The harmless looking 
turtles float on the water's sur- 
face and bob. But, one or more 
of them will submerge unpre- 
dictably. If you’re in the middle 
of a jump and the turtle you're 
about to land on decides to take 
a dive, you're in the drink. This 
costs one life (you start with 
three, and receive a bonus life 
every time you advance a level). 
Assuming you start at the 
default speed and level (Level 0 
for both), the first couple of 
rounds are not terribly difficult. 
Only one turtle at a time will 
descend. But you're soon into 
the next round and possibly a 
little overconfident. You now 
have to contend with two diving 


cally designed 


storage of your 
computer equi 


How to make 
Die aps 


Store it in a beautiful 
piece of furniture specifi- 
or the 
proper operation and 
home 
ment. 
* Upper unit shelf adjusts 
to most computers. 


your coupen 


as it 


* Desk shelf swings up to 
close off unit when not 
in use. 

e Compact design: 32”w 
x 36"h x 24”@. 

* Indestructible natural 
oak or walnut wood- 
grain finish. 


* Keyboard shelf at cor- * Ready to assemble with 
rect typing height with only a screwdriver. 
plenty of work surface. ONLY $149.00 

* Monitor placement at 
proper height and view- To order call: 
ing distance eliminates (206) 423-7524 
fatigue. Visa & MasterCard 

* Lower unit shelves for accepted. 
storage. 

Р.0. Вох 1757 9Judith Place Longview, WA 98632 
(= 


We know. You've been looking 
everywhere for 64 software, INSTA's 
interactive line of software is just a 
phone call away. 


Imagine, specially designed software 
that “talks” to one another. Your home 
budget created with CALC instantly 
becomes a GRAPH. And your club 
membership list with addresses and 
monthly dues quickly becomes a form 
letter, printed over and over again, 
automatically, for each member. 


So, no more lookin’ around. INSTA is 
here now! 


By Cimarron a division 
of MICRO SCI CORP. 
2158 Hathaway Street 
Santa Ana, CA. 92705 
(714) 241-5600 


Commodore 64 is а 
trademark of Commodore 
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A turtle begins his descent in Purple 
Turtles. The pause feature is one of 
many extras in this lively game for the 
Commodore 64. 


turtles. This pattern continues 
until you’re at a point where all 
four are acting undependably. 
After a few blunders, you'll soon 
learn that there’s more to the 
game than meets the eye. You 
must develop a strategy. 

Another tendency for first- 
time players will be to play cau- 
tiously and deliberately. This 
will get you nowhere, as there’s 
another obstacle to overcome: 
the timer. You must successfully 
return five pieces of fruit within 
a fixed amount of time to get to 
the next level. The timer, placed 
somewhat inconspicuously at 
the top of the screen, moves 
along deceptively slowly. The 
more you concentrate on the 
treachery of the turtles, the more 
likely GAME'S OVER will flash 
on the screen. 


The Frenzied Owl 


There are a lot of nice surprises 
and pleasant distractions in Pur- 
ple Turtles. Besides very appeal- 
ing color combinations, the au- 
thors have provided an ex- 
tremely active screen by taking 
full advantage of the 64's sprite 
capabilities. The blue sky is filled 
with various colored clouds and 
hot-air balloons which float hap- 
pily across the screen, unaware 
of your plight below. 

The trees on each side of the 
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pond are interesting, too. The 
tree on the left, your starting 
position, is home to an owl that 
blinks and twitches his ears 
throughout the game. When 
you return successfully with 
your fruit, the owl goes into a 
frenzy, shrieking hysterically. 
This provides a not so gentle 
reminder that your score has in- 
creased. 

The tree on the other side of 
the pond bears a different fruit 
for each new level achieved. 
Before you start across the pond 


each time, one piece drops to 
the ground. You collect it auto- 
matically by crossing the pond. 
Purple Turtles is quite well 
designed. It's innocent and en- 
chanting, yet you'll not quickly 
master any of the higher levels. 
If Quicksilva can produce more 
games of this quality, it is sure to 
find a niche in the U.S. software 
market. 
Purple Turtles 
Quicksilva, Inc. 
426 West Nakoma 
San Antonio, TX 78216 
$29.95 disk 524.95 tape 


COMvoice: Voice 
Synthesizer For The VIC-20 


Todd Heimarck, Assistant Editor 


COMvoice, a voice synthesizer 
for the VIC-20, gives your com- 
puter the ability to talk, and it’s 
remarkably easy to use. 

The COMvoice package 
contains a cartridge, a speaker 
with cord, and a 20-page in- 
struction manual. The cartridge 
plugs into your VIC, and the 
speaker plugs into the cartridge. 

If you don’t like reading 
instruction manuals, all you need 
to know is that COMvoice adds 
one new BASIC command: 
SPEAK. This command works 
almost like PRINT, but instead 
of putting words on the screen, 
the computer talks to you. You 
must enclose the words to be 
spoken in double quotation 
marks. A dial on the cartridge 
controls the volume. 


It Knows The Tough 
Words 


COMvoice will pronounce 95 
percent of English words cor- 
rectly. It has a fairly sophisticated 


method of figuring out the con- 
nection between spelling and 
speech. For example, it correctly 
pronounces tough, rough, though, 
although, bought, and brought. 

It does very well, considering 
the different sounds ough can 
represent. 

Occasionally a strange word 
pops up. COMvoice has prob- 
lems pronouncing pizza (piz-ah), 
women (woh-men), integer (int- 
eej-er), and certain other words. 
This usually happens because a 
word is spelled one way but 
pronounced another. If you run 
into a problem word, you can 
correct it by deliberately mis- 
spelling it (so it looks like the 
way it is spoken). 

COM voice can also speak 
letters and numbers. The voice 
is somewhat mechanical and 
monotonous; if you've heard 
computers talk in movies (War- 
Games) or on television (Whiz 
Kids), you can get a good idea of 
the sound quality. But you can 
add four levels of inflection, to 
stress certain words or to make 
questions sound more natural. 


Еог СВМ-64 
апа МС 
owners only: 


This is just 1 of 
20 pages of the 
newest and biggest 
Skyles catalog, hot 
off the press. 


We know you'll 
want this page, in 


From Skyles 


its full 7 x 10 Electric Works, the 
splendor, and sending you your oldest and largest 
another 19 pages very own copy professional 

of peripherals, within the last few 


specialists in the 
software and books weeks, call us at 


business. 
that will make your (800) 227-9998 
CBM-64 or VIC (unless you live 
computer even in California, in : 
nicer to live with. which case call Skyles Electric Works 


So, if we missed (415) 965-1735. Mountain View, California 94041 


с 
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String Variables 
Spoken Here 


You can set up string variables 
for pronunciation, for example, 
A$= "WELCOME HOME”: 
SPEAK A$. And there are several 
options for controlling pauses. А 
single space will cause a slight 
pause. Commas and periods will 
result in longer pauses. 

The SPEAK command 
works in immediate mode (with- 
out a program line number) or 
within programs. The instruction 
manual also includes a list of 
over 60 sounds you can access 
with POKEs directly into mem- 
ory. You can program speech 
either in BASIC or in machine 
language. 

The most impressive thing 
about COMvoice is how easy it 
is to use. You don't have to learn 
a phonetic code that translates 
words into special numbers and 
symbols which only the com- 
puter recognizes, as with some 
other speech devices. 

There are a variety of inter- 
esting applications you could 
develop with COMvoice. Imagine 
an arcade game that talks, warn- 
ing you of sneak attacks or 
suggesting strategy. Or educa- 
tional software for preschoolers 
who are just learning the al- 
phabet. The computer could 
draw a picture of a bee next to 
the letter B and say it to the child. 
COMvoice might also be useful 
in data entry; the computer could 
tell you what you just typed. 


Some Minor Faults 


There are a few minor faults in 
this voice synthesizer. It has 
problems with the ng sound. It 
is difficult to tell the difference 
between thin and thing. And 
leaving off the closing quotation 
mark results in a ?5ҮМТАХ 
ERROR. Programmers who reg- 
ularly omit the final quote on 
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PRINT statements (to save a bit 
of memory) may find this feature 
somewhat annoying. 

If you are used to PRINTing 
multiple variables separated by 
commas or semicolons, you will 
have to remember that you can- 
not do this with the SPEAK com- 
mand. SPEAK accepts only 
single string variables and it 
does not recognize string arrays. 
You can get around the single 
string limitation by converting 
arrays with a line such as 
A$ = В$(1,6):5РЕАК A$. 

The four levels of intonation 
are based on (musical) tone 
rather than volume. The voice 
would sound more realistic if 
you could stress some words by 
making them louder than others. 
The only way to control volume 
is to turn the dial on the cartridge; 
you cannot do it from within a 


program. 

And, finally, the RUN/STOP 
key is disabled while the voice is 
on. That means you cannot 
rudely interrupt the computer 
while it is talking; you have to 
wait for it to finish before you 
STOP the program. 

Considering the overall ef- 
fectiveness and ease of use, these 
flaws are merely quirks. Once 
you get used to programming 
with COMvoice, you'll learn to 
ignore them. 

COMvoice uses a VOTRAX 
SC-01 chip and is sold with a 
one-year warranty. A Commo- 
dore 64 version is also available. 
СОМооісе 
Genesis Computer Corporation 
P.O. Box 1143 
Bethlehem, PA 18018 
(215) 861-0850 
$149.95 a 


HUNDREDS OF PROGRAMS AVAILABLE 
FOR THE COMMODORE 64 & VIC 20 


Commodore 64 


All Prices up to 


Bases f | 40% OFF RETAIL 


HOME/BUSINESS 
Practicalc (D) 

Practicalc (CASS) 

Bank St. Writer (D) 
Smart 64 Terminal 
Quick Brown Fox (CT) 
Paper Clip (D) 

Word Pro/SpellRight (D) 
CalcResult Advanced (D) 
Data Manager (D/CASS) 
Home Acct (Continental) (D) 


41.50 
37.00 
52.50 
31.95 
42.95 
93.95 
72.95 
112.50 
18.75 
49.95 


EDUCATIONAL 

Facemaker (D/CT) 
Kindercomp (D/CT) 

Delta Drawing (CT) 

Type Attack (D) 

Early Games (D/CASS) 
Electronic Party (VIC 20/CASS) 
Square Pairs (VIC 20/CASS) 
Turtle Trax (CIC 20/CASS) 
Alphabet Zoo (CT) 

Koala Touch Tablet 


22.95 
19.95 
26.95 
28.95 
22.50 
22.50 
22.50 
22.50 
22.95 
72.95 
28.95 


Mastertype 


GAMES 

Choplifter (CT) 

Lode Runner (D) 

Enchanter (D) 

Jumpman (D/CASS) 

Beach Head (D) 

Neutral Zone (D/CASS) 
Temple of Apshai (D/CASS) 


28.95 
25.95 
37.50 
27.95 
26.95 
26.95 
27.95 


HARDWARE AND ACCESSORIES 
Cardco Printer Interface 62.95 
Cardprint G 71.95 
The Connection Parallel Int. 89.95 
Cardco 3 Slot Exp. Board 31.95 
Cardco 5 Slot Exp. (C-64) 55.95 
Data 20 Video Pak 80 (C-64) 143.95 
Data 20 8K Display Mgr. 

(40/80 col. plus Word Proc.) .119.95 
0 K Display Mgr (40/80) 79.95 
Zenith 12" Green Monitor 105.00 
Brother/Dynax DX-15 

(Letter Quality) 
C Itoh Prowriter 8510AP 
Gemini 10X 


485.00 
375.00 
299.00 


Write or call for FREE CATALOG. TO ORDER: CALL 1-714-643-1056 
8:00 A.M.-6:00 P.M. PST Mon.-Sat. or send check or 
credit card number, signature and expiration date. Please include phone number. 


CENTURY MICRO PRODUCTS 
Р.О. Box 2520, Mission Viejo, CA 92690 


Visa/Mastercard add 3%. Personal checks allow 2 weeks to clear. CA residents add sales tax. 
Shipping and handling add $3.00 (hardware extra). Prices subject to change. 


Go on line їп the world's fastest growing technology. 


NEW! DATA COMMUNICATIONS 


TRAINING FROM NRI 


o DN 


computer, modem, test instruments, 
and access to exclusive NRI 


communications network. 
Satellites. ..microwave...fiberoptics... 
dedicated land lines. Suddenly the world is 
communicating in a new and different way, 
via digital data systems. People talking to 
computers... computers to computers. . . 
information is stored, retrieved, and relayed 
in nanoseconds. 


Industry, opportunities to triple 

Data and telecommunications is already a 
$150 billion industry and is expected to triple 
overthe next five years. One typical company 
has grown from $85 million to $650 million. . . 
а 765% growth since 1978 alone. The need for 
qualified technicians to install, maintain, and 
service this enormous investment in high-tech 
equipment is tremendous even now. 
Opportunities and salaries can go nowhere 
but up and up. 


NRI will train you at home 

You can learn at home in your spare time to 
become a data communications technician 
with NRI at-home training. NRI will start you 
with the basics, build upon your knowledge 
with easy-to-follow, bite size lessons to take 
you into the world of digital data communica- 
tions. You'll learn what it takes to work on 


Training includes all this 
equipment you keep. . . 16K 
computer, modem, breakout 
box, digital multimeter and the 
exclusive NRI Discovery Lab. 


TRS80is a trademark of the Radio Shack division of Tandy Corp. 


SMa service mark of Source Telecomputing Corp., a subsidiary of the Reader's Digest Association, Inc. 


Practical training includes Wa 


satellite, microwave, fiber optic, 
and telephone data links. 


And you'll learn at your own comfortable 
pace, without classroom pressures or 
evenings away from your family. Over the past 
70 years, NRI has taught the latest high-tech 
skills to almost 2 million students to become 
the world's largest and most successful 
School of its kind. 


Hands-on training includes 
computer, modem, breakout box and 
much more 

NRI takes you far beyond "book learning." 

As part of your course, you receive plenty of 
practical hands-on training that gives you real- 
world skills. You get the Radio Shack Color 
Computer, with 16K memory to teach you the 
systems and language of data communi- 
cations plus you get an operating modem to 
let you tie in with world-wide communications 
networks. 


You build your own RS-232C interface 
breakout box, an indispensable installation and 
trouble-shooting instrument you'll use through- 
out your career. You receive a professional 
digital multimeter and the N RI Discovery Lab, 
where you construct 
solid-state circuits and 
demonstrate practical 
applications of the I 
theory you've learned. 


NRI Schools 


EAT 
whi 


3939 Wisconsin 


1 

| 

I 

I 9 Data Communications 
I 0 Computer Electronics with Mi 
l 


C Digital Electronics 


Licenses * Mobile CB 


McGraw-Hill Continuing 
Education Center 


Washington, D.C. 20016 
We'll give you tomorrow. 


CHECK ONE FREE CATALOG ONLY 


П Color TV, Audio, and Video System Servicing 
0 Electronics Design Technology 


O Communications Electronics e FCC 


Exclusive NRI data network 
You'll learn what data communications is all 
about by actually becoming part of an oper- 
ating network. You'll go on line to “talk” to your 
instructor, take your final exam by computer 
link, communicate with other NRI students and 
leave messages on the NRI “bulletin board.” 
As part of your course, you'll also receive 
membership in THE SOURCE *" a regular 
$100 value. A phone call ties you into 
computers loaded with instant news, stock 
quotes, electronic mail, educational programs, 
games, even discount shopping and travel 
reservations. 


Move into the future, 

send for Free Catalog 

You can't find training like this anywhere else 
-..опіу NRI trains you at home for an exciting 
and rewarding career in the brilliant new world 
of Data Communications. Mail the coupon 
right now for our big catalog of high-tech 
electronic careers showing all the equipment 
you get, detailed lesson descriptions, and 
career opportunities. Look it over and decide 
where you want your future to grow. Act now. 
There's a real need for trained data 
communications technicians. 


гтп--------------- 


All Career courses І 
approved under GI bill 


C Check fordetais | | 
153-034 | 


Avenue 


O Industrial Electronics 

C Basic Electronics 

П Small Engine Servicing 
П Appliance Servicing 

O Automotive Servicing 

П Auto Air Conditioning 

O Air Conditioning, Heating, 


jicrocomputers 


e Aircraft e Marine O Building Construction 


(Please Print) Age 


Street 


City/State/Zip 
Accredited by the Accrediting Сопи 


| 
I 
I 
I 
I 
Refrigeration, & Solar Technology | 
I 
I 
I 
I 
I 


mission of the National Home Study Council 000-000 
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Seafox For The VIC-20 


Tony Roberts, Assistant Managing Editor 


Far beneath the surface of some 
distant ocean is a submarine 
awaiting your command. Your 
mission is to prevent the 
freighters from passing while 
allowing hospital ships to sail 
through. 

The game is Seafox, an under- 
water action game adapted for 
the VIC-20 from the Apple and 
Atari versions. It is available on 
cartridge from Brøderbund Soft- 
ware. At its simplest levels, Seafox 
is challenging. At its most diffi- 
cult, it’s an undersea nightmare. 

Seafox is a shoot-em-up 
game. There’s plenty of action, 
but the pace is slower than you 
might be used to ina space game. 
This accurately reflects the 
medium in which the game is 
set—water. Your submarine, the 
enemy subs, the torpedoes, and 
mines all move through the 
water in a deliberate, liquidlike 
fashion. 

You usually have time to 
see the dangers around you, but 
you don’t always have time to 
react. The game realistically re- 
flects the differences between 
maneuvering a bulky submarine 
in the dense undersea world 
and piloting a sleek spaceship in 
the vacuum of outer space. 


Three Subs And А 
Chantey 


As Seafox begins, you are sup- 
plied with three submarines, 
and you are treated to the open- 
ing bars of “Sailor's Hornpipe.” 
This melody, though a bit out of 
tune, serves to warn you that 
the action is about to begin. 
Your sub roams the depths 
while the freighters and hospital 
ships use the shipping lanes 
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above. To complete your first 
mission, you must sink ten of 
the blue freighters while fending 
off attacks by a fleet of enemy 
subs. 

To fire at a freighter, give 
the joystick button a quick tap 
and a torpedo is launched toward 
the surface. If you hold down 
the joystick button, you launch a 
torpedo from your forward 
tubes. This weapon is used 
against your underwater foes, 
and also can be used to detonate 
depth charges and magnetic 
mines. Only one torpedo of each 
type can be active at a time. 

Your mission is further 
hampered by your limited sup- 
ply of fuel and torpedoes. You 
have 30 torpedoes and 1200 units 
of fuel when you begin. You 
burn fuel at an alarming rate and 
must always keep an eye out for 


your supply ship. 
Supply Ships And 


Undersea Creatures 


The supply ship appears at in- 
tervals at the bottom of the 
screen. It releases a trained dol- 
phin which carries fuel and tor- 
pedoes. You must make contact 
with the dolphin’s pack in order 
to take on new supplies. If you 
miss connections with the dol- 
phin, you have barely enough 
fuel to hold you until the next 
supply ship arrives. If you fail to 
resupply your sub a second time, 
you inevitably sink to the bottom 
of the sea. 

The sea abounds with giant 
clams that seem to enjoy feasting 
on dolphins. They gobble up 
your supplies as well, so it’s best 
to refuel as quickly as possible. 
If you lose a dolphin to a clam, 


A dolphin carrying an unclaimed supply 
pack swims off in Sea Fox. 


you simply have to wait for the 
next supply ship, but if any other 
woe befalls your friendly dol- 
phin, you pay dearly. Should a 
torpedo, mine, or depth charge 
destroy the undersea mammal, 
you have only sedconds before 
your entire ship is swallowed by 
a giant whale. 

While your main mission is 
to sink freighters, you do receive 
points for blowing up enemy 
subs, mines, and depth 
charges—something which must 
be done anyway, just to survive. 

Should one of your tor- 
pedoes hit a hospital ship, you'll 
do no damage. However, the 
weapon will bounce off the 
heavily armed ship and head 
back your way. Besides present- 
ing you with an added peril, this 
also deprives you of your ability 
to fire another surface torpedo 
until the first one explodes on 
the sea bottom. 


On To Advanced 
Assignments 

As you begin play, your only 
danger is a fleet of enemy sub- 
marines. As you advance to 
higher levels, the complications 
increase. On level two, a fleet 
of destroyers is added to the 
shipping lane. These ships drop 
depth charges to make your life 
miserable. In the third level, the 
enemy subs begin firing tor- 
pedoes at you, and what happens 
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after that I've never been able to 
discover. The game includes five 
levels, and the instructions make 
reference to magnetic mines, so 
I assume they're part of the | 
finale. 

A nice feature of Seafox is 
that the depth charges, mines, 
enemy subs, torpedoes, etc., 
have the ability to home in on 
you. When you take evasive 
action, you must be evasive. It 
doesn't do to simply move aside 
and let them go past. 

Seafox requires that you 
develop strategies, and it re- 
quires that you keep your sub- 
marine in constant motion. Take 
it up to get a clean shot at a 
freighter, descend for refueling, 
reverse engines to avoid an ex- 
plosive charge. It takes concen- 
tration to stay alive, and you'll 
find that it's carelessness that 
most often does you in. 

Seafox 

Bróderbund Software 

17 Paul Drive 

San Rafael, CA 94903 

(415) 479-1170 

$34.95 а) 
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TOLL FREE 
Subscription 
Order Line 


800-334-0868 
InNC 
919-275-9809 


TAX AID 


FOR 
COMMODORE 64™ 
and VIC 20" 


use TAX AID TO PREPARE 
YOUR INCOME TAX RETURN 


TAX AID 


Developed by an experienced accounting firm, TaxAid is 
accurate, easy to use, and comes with a detailed manual. Your tax 
data is permanently stored on tape or disk. The cost is tax 


deductible and yearly updates are available. 


TAxAiD I TAxAiD II Tax Ao Ш 


For For For 
Unexpanded VIC 20 VIC 20 with 16K Commodore 64 


$19.95 $24.95 $24.95 


Prices above are for cassette; add $5.00 for disk version. 


NORTHLAND ACCOUNTING, INC. 


606-A Second Ave. 
Two Harbors, MN 55616 


(218) 834-5012 


TAX AID 


TAX AID 


VISA 


TAX AID TAX AID 


TAXAID ISA TRADEMARK OF NORTHLAND ACCOUNTING, INC. 
VIC 20 & COMMODORE 64 ARE TRADEMARKS OF COMMODORE ELECTRONICS, LTD. 


TAX AID 
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Puta 
little 
style T 


TM 


over your Commodore 


From high quality cotton denim...Genuine leather personalized. 


CALL 800-523-2004 FOR MASTERCARD OR VISA ORDERS Cf 

or send the coupon with check or money order. 
Se es а а а а کے ا کے کے ی بے کے ہے کے کے‎ 
Jack Degnan Associates Charge: Item 
P.O. Box 838 MCO VISAO 
Chesterfield, MO 63017 Account No. 
Here is my check or 
money order for MC2 
Covers as follows: 


C64 Computer $ 9.95 
1540/1541 

Disk Drive 9.95 
1530 Cassette 8.95 
Expiration Date 1525 Printer 10.95 
Sub-total 


Name: 


Personalize at $2.00 each 
Missouri residents add 


VISA! 


Qnty. Price Total 


1701 Monitor 11.95 ===8 


personalizing: eS 


wt 
шер” 


The MC? Covers...Are custom made with the designer jeans style... 


Address: 


City: State: Zip: 
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5% tax —__ 
Shipping 5115 
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HOTWARE 


A Look At This Month's Best Sellers 
And The Software Industry 


Kathy Yakal, Editorial Assistant 


This Last This Last 
Month Month Month Month 
commodore 64 Entertainment VIC-20 Entertainment 
Temple Of Apshai (Epyx) 2 1 Shamus (HesWare) 2 
2 JUSTO ea 1 2  Choplifter (Creative) 4 
doa Cene Ышш) 2 3  Gridrunner (HesWare) 1 
4  Choplifter (Broderbund) D 4 Temple of Apshai (Epyx) 3 
9 шшш (nesses) = 5 Crush, Crumble and Chomp (Epyx) 5 
6 Neutral Zone (Access) 7 6 Protector (HesWare) 2% 
7 Бит рына үне) E 7  Attackof the Mutant Camels 
8  Gridrunner (HesWare) 6 (HesWare) 7 
9 Enchanter (Infocom) - 
10  Telengard (Avalon Hill) 9 


- tilit 
Cominodorel£4 VIC-20 Home/Business/Utility 


Square Pairs (Scholastic) 
Word Search (T & F) 


1  QuickBrownFox(QuickBrownFox) 1 
Ко scii 2 HES Writer (HesWare) : 
(Pro Cd: кэр 1 3 Household Finance 
р р (Creative Software) ©) 
22. (ӘЛІН Brown Fox (Quick BrownFox) 2 4 TOTL Time Manager (TOTL) 5 
3 Paper Clip (Batteries Included) 6 
5 TOTL Text (TOTL) 6 
4 Management Systems 64 (Entech) 8 6 HES Mon (HesWare) 4 
5 Electronic Checkbook (Timeworks) - 
6 Money Manager (Timeworks) 7 
7 Data Base64 (Entech) 9 VIC-20 Educational 
5 PE 2200 E 1 Touch Typing Tutor (Taylormade) 1 
10 HES Mon (HesWare) 10 2 Primary Math Tutor (Comm*Data) 5 
4 3 


Commodore 64 Educational 
Dungeons of the Algebra Dragons 
(Timeworks) 

Facemaker (Spinnaker) 1 
Spellbound (Timeworks) - 
Delta Drawing (Spinnaker) 

Studio 64 (Entech) 


= 


*Word Pro 3 Plus/64 was written by Steve 


Pipes (Creative Software) 
Up For Grabs (Spinnaker) 


Dwight Huff. The two programs can be purchased 
separately or as a package. 


со му суол i WN 


5) 
Primary Math Tutor (Comm*Data) g Punter. SpellRight was written by Joe Spatfora and 
5 
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IUGGLED BY BAD SOFTWARE? 


Here comes 
the new generation of SM's 


Sit TEXT 64 


SM SOFTWARE 


SI TEXT 64 


The professional wordprocessor with 

more than 80 functions like multi-color 

selection, up to 120 columns/line without additional — 
hardware, find & replace, enhanced blockhandling, direct-access 

to SM-ADREVA-files, and all the other usual features. 


Sil ADREVAG4 


Your personal professional address-file-system. Up to 620 addresses per disc 
in direct access. Including 5 extra lines for individual text/record. 

Totally menue-driven. Powerful editing and back-up facilities. $60 
Several hardcopy features. ONLY 


JI KITGA 


The famous programming tool with powerful basic extentions like merge, find, 
renumber, dump, trace, enhanced floppy-monitor (disc-doctor) and high 
efficient machine-language-monitor with built-in assembler, disassembler, 
trace and lots of more helpful features. Really a golden tool! 


SI ISN164 


This index-sequential file manager gives you a new dimension on direct access 
files. Up to 40 keys, various length for each record and up to 10 files can be handled 
at the same time by this sophisticated module. How could your programs survive 

without SM-ISM? 


ONLY $75 


ONLY $60 


LY 560 
PLACE YOUR CHECK OR MONEY ORDER NOW! oN 
— EVERY SHIPMENT 
SM SOFTWARE INC. INCLUDES DISC 
же 252 Bethlehem Pike AND MANUAL. 


Colmar. РА 18915 


SOFTWARE MADE ІМ MUNICH 


Dealer inquiries invited. 


Commodore 64 owners are buying more home 
applications software than games, and VIC-20 
owners are moving in that direction, too. This 
month we'll look at some home applications 
products which are doing well, some which 
are not, and a few you can expect to see in the 
near future. 

[soos дау аса 


As the home computer movement gathers 
momentum, it’s important for people in the in- 
dustry to know why consumers are buying com- 
puters. Hundreds of surveys have been conducted 
by market research firms, hardware and software 
manufacturers, and computer publications. 
Though the results vary, some general trends 
have emerged. 

e Before purchasing a computer, many people 
claim that they want or need a home computer 
for educational purposes, and to simplify record 
keeping. Playing videogames is often low on their 
list of priorities. 

ө After buying a computer, the first type of 
software actually purchased is, in many cases, 
games. 

ө A few weeks or months down the road, the 
computer owner starts searching for practical 
applications other than entertainment. с 

Though this is not true for everyone, this 
kind of pattern emerges in the software sales we 
have tracked in HOTWARE. Last spring, when 
the Commodore 64 was fairly new to the market, 
and the VIC-20's price was dropping rapidly, the 
type of software that sold best was games. As 
demand increased and more home business soft- 
ware became available, it began to outdistance 
games both in unit sales and in numbers of pro- 
grams being published. 

Granted, the Commodore 64 is seen as more 
suitable than the VIC-20 as a business computer, 
due to its greater amount of memory. But the 
increase in availability of home and business ap- 
plications cannot be traced solely to the 64. Equi- 
valent software for the VIC-20 is also starting to 
catch up, although VIC-20 games are still selling 
in greater volume. 


Identifying The Leaders 

If we go back to the first HOTWARE list in the 
August 1983 issue of COMPUTE!’s GAZETTE, we see 
several types of home/business software repre- 
sented. For the Commodore 64, it looked like 
this: 

. HES Writer (HesWare) 

. Calc Result (Handic) 

. Word Pro 3 Plus/64 (Professional) 

. HES Mon (HesWare) 

. TOTL Text (TOTL Software) 

. TOTL Label (TOTL Software) 
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Three word processing programs appeared 
here: HES Writer, Word Pro 3 Plus/64, and TOTL 
Text. Many more word processing packages have 
been introduced since that time, and word proc- 
essing continues to be one of the most popular 
home applications for personal computers. 

Electronic spreadsheets do not seem to be as 
popular as other types of business software, at 
least among Commodore owners. Calc Result leads 
the field of the few available. 

HES Mon, a machine language monitor, and 
TOTL Label, a mailing list program, also appeared 
on the first HOTWARE list. 


New Products Join The List 


Since we first published that list, several new 
products have entered the home applications 
market. 

Data bases. These electronic filing systems 
allow you to enter records, sort them, and print 
out specialized reports. (See “Тһе Data Base As А 
Home Information Center” elsewhere in this 
issue.) Data Manager, Бу Timeworks, and Delphi's 
Oracle, by Batteries Included, are examples. Data 
base software is beginning to appear almost as 
often as word processors on our HOTWARE list. 

Home finance software. Though some of the 
personal financial records that you have to keep 
may be more easily done with pencil and paper, 
many can be simplified with your computer. 
Personal Finance Assistant, by Rainbow, and House- 
hold Finance, by Creative Software, have been best 
sellers. 

Other home applications exist, but don’t yet 
have as much software support as word proc- 
essing, data management, and personal finance 
record keeping. They include time management, 
inventory control, and checkbook balancing. Soft- 
ware is also available to help figure out income 
taxes and keep track of stock portfolios. You may 
see more of these kinds of specialized applications 
as the software market continues to mature. 


A Question Of Suitability 


Are there home applications that do not translate 
well to computers? Yes, says Douglas Adams, 
president of Orbyte Software. "There are some 
things that you can do just as quickly and easily 
by hand,” he says. “Take a recipe file, for ex- 
ample.... I don't know how useful a computer 
can be in the kitchen at this time." 

Adams believes the Commodore 64 is capable 
of handling more useful home financial applica- 
tions, including home budgeting, data manage- 
ment, and word processing. 

Orbyte's data base filing system, Comfile, 
allows you to access files you have created using 
another program (a word processor for example), 
even if that software was not published by Orbyte. 
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(USA), Inc. 


Precision Software 


Suite 11D 
1675 York Avenue 


Superbase gives you 


enter your records, 
unrivalled control in home or 


Create your own 


formats. 


D 


business or 
professional practice, with 


arange of features 


The World Famous Commodore 64. 
including: 


change layouts and datafields. 


office, 


”People are looking for versatility in home busi- 
ness software," says Adams. “If I can enhance 
another company’s software with my own, that’s 
great." 


Know Your Needs Before 
You Buy 


"The Commodore 64 owner has a lot of variety at 
this point in terms of software for home applica- 
tions," Adams says. "But many people that are 
buying that kind of software don't know what the 
programs are about. Also, this software tends to 
be more expensive than games. It's very important 
to make sure the software you're buying will truly 
meet your needs." 


Correction 

Two software manufacturers were incorrectly 
identified in January HOTWARE. Temple of Apshai 
and Crush, Crumble and Chomp are products of 
Epyx Software, not HesWare. The Commodore 
64 version of Choplifter is published by Bróderbund 
Software. The Commodore 64 version of Shamus 
is published by Synapse Software. G 


VIC? 20 OWNERS 


Da Fulfill the 
expansion needs 
of your computer 
with the 


RAM-SLOT 
MACHINE 


This versatile memory and slot expansion peripheral 
for the Commodore Vic-20 Computer consists of a 
plug-in cartridge with up to 24KBytes of low power 
CMOS RAM and 3 additional expansion slots for 
НОМ, RAM and I/O. The cartridge also includes a re- 
set button (eliminates using the power-on switch) 
and an auto start ROM selection switch. 


#RSM-8K, 8K RAM + 3 slots 
#RSM-16K, 16K RAM + 351045 .... H 
#RSM-24K, 24K RAM + 3slots .... $119.50 


We accept checks, money order, Visa/Mastercard. Add 
$2.50 for shipping, an additional $2.50 for COD. Mich- 
igan residents add 4% sales tax. Personal checks— 
allow 10 days to clear. 


* Trademark of Commodore. 


ТЕН DESIGN CORPORATION 


3990 Varsity Drive • Ann Arbor. МІ 48104 • (313) 973-6266 


MINI JINI Record Keeper" 


ALL IN ONE, ONE FOR ALL! 


“MJ is a winner." "Learn MINI JINI Record Keeper in 20 minutes" Commander Magazine 
"Super duper database for VIC-20 and COMMODORE 64" Software Intl 


ONLY *89? 


Anyone who keeps records can use MINI JINI” Record Keeper". 


Administrators Collectors Medical persons Schools 

Bill payers Families Organizations Store owners 

Bookkeepers Hobbiests Party planners Students == 
Bond clippers Card writers Post offices Teams Mast, 
Checkwriters Libraries Salespersons Writers “Соғу 


Plug іп а cartridge for 50 to 500 records оп tape or disk. 
Print labels and reports, alphabetize, do math and statistics. 


NO EXTRA MEMORY REQUIRED 
ARIS Non Дети $14.95 еасһ AVAILABLE IN SPANISH 
5; !!е$ with easy to use instructions. MINI ЛІМІ" Archivo Instante “ 


Organize the Hamshack™ Class m planning” 
sor uc PN ME oc Coming soon: FRENCH, GERMAN and ITALIAN 


Dealer 
inquiries invited. 


COMMODORE 64 and VIC-20 are trademarks 


JINI MICRO 


ї Commodore Business Machines Inc 


STEMS, Inc. 


DATABASE MANAGEMENT SYSTEM DESIGN 
ВОХ 274 KINGSBRIDGE STN., RIVERDALE, NY 10463 (212) 796-6200 
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Look at these 
Features 


Fully screen-oriented 


€ Horizontal and vertical scrolling 


@ Terminal mode — never seen before on a wordprocessor 


€ Supports Commodore disk and cassette handling 


€ imbedded commands 


Wordprocessor 


Commodore 64 


BLIZTEXT -- SUPER WORDPROCESSOR 
for the Commodore-64 
- ON SALE NOW! — 


9 Fully screen-oriented, up/down, left and right 
scrolling — Upper and lower case 

Ф More than 70 commands 

€ Full 1/0 compatibility with Commodore peripherals 
Upper and lower case 

€ Works with practically every printer on the market, 
user definable printer control commands. 

* INCLUDE command allows handling large files 
on up to 4 diskettes or on cassette. 

® Build in terminal software for electronic mail and 

networking. Telecommunications mode, upload and 

download, save on disk or cassette. 

Dynamic formatting, Imbedded commands 

Single keystroke for disk directory and error channel 

Program comes on disk or cassette 

Double line spacing, left and right margin justification, 

centering, page numbering, and practically everything 

one expects from a good wordprocessor. 


AVAILABLE NOW! 
Order #4965 


Manual only (62 pages) 


MACROFIRE - 
Editor/Assembler for the Commodore-64 
ON SALE NOW 
AVAILABLE IMMEDIATELY 

One outstanding tool, consisting of 3 powerful elements 
combined into one efficient program! 

1.) Fully screen-oriented Editor (more than 70 

commands) 

2.) Very fast assembler with macro capability 

3.) Machine Language Monitor. 
Assembly can be started from the editor. Translates in 
3 passes. More than 1,000 lables, screen oriented/no line 
numbers, scrolling, includes disk files. 
Practically everything the serious machine language 
programmer needs everyday! 
Manual only 
Order #4963 


$89.00 
$29.95 


$19.95 
589.00 


ELCOMP PUBLISHING, INC. 
53 Redrock Lane 

Pomona, CA 91766 

USA 

Phone: (714) 623-8314 
Telex: 29 8191 


THE GREAT BOOK OF GAMES, VOL.I, 

by Franz Ende 

46 programs for the Commodore 64 

Introduction to graphics and sound. How to program 
your own games. Walking pictures, animation, high 
resolution graphics, programming tips and tricks, hints 
and useful subroutines for the beginner and advanced 
programmer. This book is a MUST for every C-64 owner. 


Come and get it — It's yours for only 5 9.95 
Order #182 128 pages 59.95 
Programs from the book оп disk. 

Order #4988 $19.95 


MORE ON THE SIXTYFOUR, by H.-C. Wagner 
How to get the most out of your powerful Commodore 
64. Very important subroutines, tricks and hints in 
machine language for your C-64. How to modify DOS. 
How to connect a parallel and serial printer. How to 
design your own terminal program for communication 
and networking. Dig into I/O for cassette and disk. 


Order #183 $9.95 
Programs from the book on disk 
Order #4989 $19.95 


NEW PRODUCTS 
Watch out for our new books, software and add-ons to 
come soon. ON SALE NOW! -- ORDER TODAY! 


How to program in 6502 Machine Language on 
your С-64 ‚Ьу$. Roberts (Introduction) 
Order-# 184 $12.95 


Commodore-64 Tune-up, Vol. I, by S. Roberts 
How to expand and customize your C-64. 

Order #185 $12.95 
Small Business Programs for the Commodore-64 
by S. Roberts 

How to make money using your C-64. Mailing list, 
invoice writing, inventory, simple wordprocessing and 
much more. 


Order # 186 812.95 


РАҮМЕМТ: check, money order, VISA, MASTER 
CARD, Eurocheck, ACCESS, Interbank 
Prepaid orders add $3.50 for shipping (USA) 


55.00 handling for C.O.D. 
nia residents add 6.5 % sales tax. 


ELCOMP Computer (S) Pte. Ltd. 

89 Short Street 

Unit 03-07, Golden Wall Auto Centre 
SINGAPORE 0718 

Phone: 3382623, 3388228 

Telex: 56516 


All orders outside USA: add 15 % shipping, Califor- 


BLIZTEXT isa 
trademark of ELCOMP 
PUBLISHING, INC. 


Commodore-64 and 
VIC-20 are trademarks 
of Commodore 
Business Machines. 


Dealer and Distributor 


inquiries are invited. 


Hardware Add-Ons: 

Parallel printer interface KIT Order #4990 $ 19.95 
Direct Connect Modem KIT Order #4991 Ask f.price 
Universal Experimenter Board Order #4970 8 9.95 
Expansion Board, space for four ex- 

perimenter boards(board only) Order #4992 $ 29.95 


For your VIC-20 
Tricks for VICs 
Universal Experimenter board 


5 9.95 


SAM D. ROBERTS 


ELCOMP PUBLISHING, INC 
53 Redrock Lane 
Pomona, CA 91766 
Phone: (714) 623 8314 

Telex: 29 81 91 


Ing.W. Hofacker GmbH 
Tegernseerstr. 18 
D-8150 Holzkirchen 
West-Germany 

Phone: 08024 / 73 31 
Telex: 52 69 73 
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THE BEGINNER'S CORNER 


Preventing An Input Crash 


This month we'll look at a few ways to ”dummy- 
proof” (maybe a better term is ”user-proof”) your 
programs. In other words, how do you write your 
programs so that other people can use them and 
not get error messages? How do you prevent your 
program from “crashing” with a fatal error? 

Any program that another person will use 
should have "user-friendliness" built in. When 
you work on a program you have written yourself, 
you know what constraints the program has and 
what types of input are necessary. If you want 
other people to use your program, they need to 
be able to do so without your constant help. 


The GET Statement 


The most likely place for errors is when the user 
must enter something—when the program re- 
quires a response. You may use either the GET or 
INPUT statement to put information into the com- 
puter. If you allow for yes and no or multiple- 
choice answers requiring one keystroke instead of 
a typed answer as the user input, there is less 
chance for error. To detect which key is pressed, 
use GET. 

Here is a sample: 


100 PRINT "START" :rem 240 
200 PRINT "TRY AGAIN? (Y/N)" :rem 40 
210 GET AS ігеп 216 
220 ТЕ А5-"Ү" THEN 100 :rem 34 
230 IF A$«»"N" THEN 210 :rem 87 


Line 200 prints the question asking for а re- 
sponse. Line 210 scans the keyboard and gets a 
key when it is pressed. Line 220 says if the key 
pressed was Y, then transfer to line 100. Line 230 
says if the key pressed is not N (or if no key is 
pressed), then go back to the GET statement, 
otherwise continue. You can see that only the Y 
or N keys are accepted. 

Here is another example offering a choice of 
several items. 
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100 PRINT "{2 DOWN}CHOOSE:" :rem 127 
110 PRINT "1 FIRST GAME" :rem 54 
120 PRINT "2 SECOND GAME" :гет 108 
130 PRINT "3 THIRD GAME" :rem 45 
140 PRINT "4 END PROGRAM{DOWN}"  :rem 154 
150 СЕТ A$:1F AS="" THEN 150 :rem 79 
160 IF A$<"1" THEN 150 :rem 1 
170 IF А5>"4" THEN 150 :rem 7 
180 ОМ VAL(A$) GOTO 1000,2000,3000,4000 
:rem 150 
1000 PRINT "FIRST GAME" :rem 52 
1010 GOTO 100 :геп 140 
2000 PRINT "SECOND GAME" :гет 1@5 
2010 GOTO 100 :rem 141 
3000 PRINT "THIRD GAME" :гет 41 
3010 GOTO 100 :гет 142 
4000 PRINT "END PROGRAM{2 DOWN)" :rem 166 
4010 END :rem 156 


Lines 100—140 print the menu screen. You 
could use an INPUT statement to require the user 
to choose a number and then press RETURN, but 
the user would need two keystrokes and could 
enter many characters other than the four numbers 
and cause all kinds of errors. A better approach is 
to use GET (line 150). Here we're scanning the 
keyboard for a key A$. If A$="” (that's two 
double quote marks with nothing between), no 
key has been pressed. Lines 160 and 170 indicate 
that the key pressed must be from 1 to 4. 

Line 180 is an example of an ON-GOTO state- 
ment, which causes the program to branch de- 
pending on the value of A$. Lines 160-170 check 
to make sure the key pressed will be a number 
from 1 to 4, so the ON-GOTO statement needs 
four line numbers. If the value of A$ is 1, the pro- 
gram goes to line 1000; 2 goes to 2000; 3 goes to 
3000; and 4 goes to 4000. An ON-GOTO statement 
is often the most efficient way to transfer control 
without using several IF-THEN statements. The 
rest of this sample program illustrates the program 
flow—of course, you would write actual program 
segments for the options. 


Mirage Concepts stands apart 
because our customers 
don't stand alone! 


Mirage Software For Commodore 64... 


ғ 


bs 


At Mirage Concepts, we stand beside you all the 
way. We supply detailed information on what each 
program will do, and help you determine whether 
or not it will meet your need. Your purchase of a 
quality Mirage Concepts program includes a manual 
which not only lists instructions, but it also teaches , 
you how to use it. For = же 

answers to your special «аии 

questions, technical support (== umma 
personnel are standing-by on | 
a toll-free basis. | 


WORD PROCESSOR, $89.95 


* 40/80 Columns Without Additional Hardware 
* 100% Machine Language * Over 70 Commands 
* Includes Spelling Checker • Interfaces to Database 


ill 


DATABASE MANAGER, $89.95 ER a 
* 100% Machine Language * Free Form Design % Sort M ==. ) же 
On Any Field е Calculated Fields • Interfaces to W.P. WU " Ұ я TT 


* Record Size — 2,000 Characters 
' ADVANCED REPORT GENERATOR, $49.95 / 


* Companion to Database * Totals and Subtotals е Field == 
Matching % Expanded Reports % Sorting (Up & Down) 
* Calculated Fields 


For Brochures, Support and Information, Call... 


(800) 641-1441 бл Cai.. (800) 641-1442 


MRACE CONCEPT, inc. 


ТМ-- Commodore 64 is a Registered Trade Mark of Commodore Electronics, Ltd. 


Freezing The Program 


Another use for GET is to ”freeze” the program 
as long as the user wishes. For example, perhaps 
you have an instruction screen. If the user has 
seen the program before, he or she may wish to 
skip over the instruction screen quickly and not 
have to wait a certain amount of time. A first-time 
user may need plenty of time to read the screen. 
A GET loop can freeze the screen until the user 
presses a certain key. Another use may be to hold 
a graphics screen until the user is ready to go on. 
Here is a sample: 


100 PRINT "PRINT INSTRUCTIONS HERE." 

:гет 246 
11@ PRINT "{DOWN}PRESS Fl TO CONTINUE." 

:rem 174 
120 GET AS :rem 216 
130 IF AS<>"{F1}" THEN 120 :rem 141 
140 PRINT "{DOWN}PROGRAM WOULD CONTINUE." 

:rem 173 
158 END :rem 109 


To type line 130, press the f1 key (the top 
function key) between the quote marks. You will 
see a printed symbol. Line 120 detects the key 
pressed. Line 130 determines that if the key 
pressed is not the f1 key, the program loops back 
to line 120. The program will not continue until f1 
is pressed. 

If you are writing a game program, you can 
use GET to detect the function keys or arrow keys, 
then branch appropriately. 


The INPUT Statement 


INPUT is unavoidable in many cases. The INPUT 
statement may ask for either a number or a string. 
You can use a "prompt" with INPUT so the user 
knows exactly what to enter. PRINT a message 
before the INPUT value. It is also wise to ask for 
only one item at a time. 


200 INPUT “NAME AND ADDRESS";N$,A$ 


may be more difficult to use than the following 
series of questions: 


200 INPUT "LAST NAME";L$ srem 162 
210 INPUT "FIRST NAME";F$ :rem 181 
220 INPUT "STREET ADDRESS";A$ :rem 229 
230 INPUT "CITY";CS$ :rem 68 
240 INPUT "ЅТАТЕ";5$ srem 157 
250 INPUT "ZIP CODE";Z :rem 14 


This program asks for exactly what is needed, 
one entry at a time. The first example may be un- 
clear as to how data should be entered. 

In more technical programs, you may assume 
some knowledge on the part of the user in in- 
putting values for calculations. However, to avoid 
a fatal program crash, you may wish to check 
limits of numbers entered. Problems could arise 
with very large numbers, negative numbers, and 
zero (especially if fractions are involved or if there 
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is a possible division by zero). 

The following program for parallel resistance 
illustrates how input values can be tested. First 
the user is asked how many resistors there are in 
the calculation (only three are shown, but a num- 
ber up to nine may be chosen). The GET function 
is used since the answer is one digit. Line 150 
also makes sure the key pressed is a number 
from 2 to 9. 

The formula for total resistance of several 
resistors in parallel is 


Желе... 
RC URINE ERS 


Since the equation involves fractions, we need 

to be careful of a division by zero. Line 200 makes 
sure that each resistance entered i$ greater than 
zero. 

At the end of the program the user is given 
the option to try another problem or end the pro- 
gram. Again, the GET function is used to see 
whether the user presses 1 or 2, and all other keys 
pressed are ignored. 


lø REM FOR VIC DELETE LINE 26 :rem 75 
20 POKE 53281,1 :rem 241 
30 PRINT "{CLR}{BLK} PARALLEL RESISTANCE 


{DOWN} " :rem 166 
40 PRINT "(2 5РАСЕ5)Е2 Y3OK6 YIO 
E6 ҮЗОК2 Y3" :rem 18 


50 PRINT "(4 SPACES)KGJ(6 SPACES)KGI 


{6 SPACES} EG3" :rem 37 
60 FOR I=1TO3 :rem 218 
70 PRINT "{4 SPACES}M{6 SHIFT-SPACE}M 
{6 SHIFT-SPACE]M" :rem 31 
8Ø PRINT "(4 SPACES}N{6 SHIFT-SPACE}N 
{6 SHIFT-SPACE)N" :rem 35 
90 PRINT "(3 SPACES}N{6 SHIFT-SPACE}N 
{6 SHIFT-SPACE]N" :rem 36 
100 PRINT"(3 SPACES}M{6 SHIFT-SPACE]M 
{6 SHIFT-SPACE]M" :rem 73 
118 NEXT I x :rem 26 


120 PRINT "(4 SPACES]EG3(6 SHIFT-SPACE} 
ЁСЯ{6 БНІРТ-ЅРАСЕ } СЯ" :rem 211 
PRINT"(2 SPACES}£2 P3LK6 PIL 


Ев P3LE2 РЯ" :rem 185 


138 


140 PRINT "{DOWN}HOW MANY RESISTORS? "; 

:rem 226 
150 СЕТА5:ІЕ(А5<"2")%(А5>"9")ТНЕМ150 

:rem 109 
160 PRINTA$:N=VAL(A$):T=Ø :гет 226 
170 FOR I=1TON :rem 39 
180 PRINT"R"+RIGHTS(STRS$(I),1)+" ="; 

:rem 213 
198 INPUT К srem 124 
200 IF R>Ø THEN 220 :rem 164 


210 PRINT"{2 SPACES}R MUST BE GREATER":PR 

ІМТ"{2 SPACES}THAN ZERO. {DOWN}":GOTOL 

80 :rem 81 
220 T=T+1/R :rem 86 
230 МЕХТ :гет 212 
240 PRINT "TOTAL RESISTANCE =" :rem 25 
250 PRINT 1/T :гет 216 
260 PRINT "(2 DOWN}{GRN}PRESS:" :rem 112 
270 PRINT " 1 ANOTHER PROBLEM" :rem 189 
280 PRINT " 2 END PROGRAM" :гет 140 


Food for Thought. 


Real computing at appetizing prices. 


64 PAK?" A self-teaching sampler 
Inventory 64:" An easy-to-use package of 10 menu-driven programs. 
menu-driven program that lets you Ideal as an introduction to computing. 
track complete and complex invento- Or compute your life expectancy, 
ries. Pinpoint locations, vendors, your mortgage payments, even learn 
units of measure. Update prices, re- the language of the deaf, plus a lot 
orders, sales, entire stocks. A power- , more. Only $24.95 on disk. 
ful tool for your home computer at 

only $29.95* on disk. 


PractiFile™ A fully professional file 
manager for your Commodore. 
PractiFile can handle mailing list " 
entries by the thousands. You can с не Total Health™ The fun way to keep 
change records, numbers, methods PractiCalc™ 64. The most powerful fit. Stay on top of your daily intake 
of filing, and a great deal more. Plus, spreadsheet available for a home and outgo of calories. Balance your 
it's easy to use. Only 954.95" on disk. computer—at the least cost. Track daily diet and graph your progress— 
; investments, inventories, expenses. all tailor-made to your body, past, 
Project profits. Make charts. Keep present, and future. It's like having a 
mailing lists. Sort alphabetically or health spa in your home for only. 
numerically, instantly. An incredible $24.95* on disk. 
value at $49.95* tape; $54.95* disk. 


Now you can do real, honest-to-goodness computing at computer-game prices. Computer Software 
Associates brings you hard-working software that makes your work easy. (While it's easy on your budget.) 
All programs are easy to work with right on the screen, from self-teaching instant software that tracks your 


vital statistics to potent programs to track inventories and profits. 
Of course, if its games you want, we've got them too. But if you're look- Am E 
\ 


ing for home computer power with real brainpower, look no more. Now 
you can play for keeps. ASSOCIATES, INC. 


Exclusively distributed by Micro Software International, Inc. • The Silk Mill, 44 Oak St., Newton Upper Falls, MA 02164 • (617) 527-7510 


*Prices are suggested retail; actual retail prices may vary. ©1984 Computer Software Associates, Inc. Commodore 64™, trademark of Commodore Business Machines, Inc. 
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Your “ОМЕ STOP” Source 
for Computer Books 


You can rely оп PACE for ONE STOP shopping for 
all your Micro Computer needs. We have thousands 
of books, programs and accessories—covering all 

| the major brands of computers—even 60 different 

magazines! The ONE STOP friendly store. 


pace 


VISA/MASTERCARD ORDERS CALL (312) 595-3860 


a COMPUTE!’s 1st BOOK OF C-64 


105-000020 264 Раз 512.95 
O GAMES C-64s PLAY 
4560-000121 270Р45 $14.95 
O KIDS & THE C-64 
4560-000172 210Pgs $19.95 


| G GRAPHICS 8 SOUND PROG. 
4800-000640 240Pgs $14.95 
| û SPRITE GRAPHICS FOR C-64 
! 4690-838136 224Pgs $15.95 
O USING C-64 IN THE HOME 
1 4690-940072 200Pgs $10.95 
O PROGRAMMER'S REF GUIDE 
1 4760-022056 486 Pgs $19.95 
C HOW TO USE THE C-64 
| 4250000133 124Pgs — s 3.95 
1 O COMPUTER PLAYGROUND Ву 
М. J. Winter. Workbook for children. 
| 4560-000108 128Рд5 $ 9.95 
O ELEMENTARY C-64 Wm.B Sanders. 
I Considered among best “How-To's” 
4560-000034 232Pgs $14.95 
| GEASYGUIDETO Younc-ea Jos 
Kascmer. Jargon-free text on practical 
| оретаноп- word. process to math calc. 
4795-000126 160Pgs 5 7.95 
О C-64 BASIC HANDBOOK Douglas 
Hergert. Dictionary-style handbook. 
4795-000116 170Pgs $ 9.95 
О More Than 32 BASIC PROGRAMS 
Practical, educational and games 
1 4250-000180 350Pgs $29.95 
OCOMPUTE!'s 1st BOOK OF C-64 
SOUND AND GRAPHICS NEW! 
4105-000021 Due Soon $12.95 
D COMPUTE''s 1st BOOK OF C-64 
AMES NEW! 
105-000034 Due Soon $12.95 


COMPUTE!s REFERENCE GUIDE 
ОС-64 GRAPHICS NEW! 
105-000029 Due Soon $12.95 


1] CREATING ARCADE GAMES NEW! 


nm 


п 


4105-000036 Due Soon $12.95 
O GAMES FOR KIDS NEW’ 
4105-000037 Due Soon $12.95 


С-64: GETTING MOST FROM ІТ 
690-000380 303 Pgs $14.95 

PROGRAM YOUR C-64 IN BASIC 
690-729723 8 9.95 


SE Ро 


о 


For COMMODORE” 
108-005600 Kybrd $10.98 
108-005700 OldData $ 4.98 
108-005710 NewData $ 4.98 
108-005720 1701 Моп. $15.98 
108-005800 1515Prnt $10.98 
108-005820 1525Prnt $10.98 
108-005860 1540/41 


oo000000 
ددد‎ 


$ 9.98 


zi 


OMPUTER DUST COVERS 


О GETTING ACQUAINTED WITH 
YOUR VIC-20 
4198-000028 128Pgs 
D VIC-20 USERGUIDE 
4665-000086 388 Pgs 


$ 9.95 


$15.95 
0101 PROGRAMMING TIPS AND 
TRICKS (Vic & С-64) 
4080-000030 128Pgs $ 8.95 
П VIC BASIC - User Friendly Guide 
зо Graphics, Color & Sound 
4690-008377 360Pgs $14.95 
O YOUR 1st VIC-20 PROGRAM 


4795-000129 182Pgs $ 9.95 
O VIC GAMES 
4410-001060 187 Pgs $13.95 


O PROGRAMMER'S NOTEBOOK 
4760-022089 253Pgs $14.95 


O 50 EASY-TO-RUN GAMES 
4760-022188 !22Pgs $ 5.95 


O COMPUTERS FOR KIDS 
4198-000042 72 Pgs $ 5.95 


O COMPUTER PLAYGROUND 


4560-000108 128Pgs $ 9.95 
O GAMES VIC-20s PLAY 
4560-000119 270Pgs $14.95 


O QUICK REF ERENCE GUIDE 
4925-088248 $ 2.95 
OVIC-20F ORKIDS OF ALLAGES 
4925-088233 160Pgs $10.95 
O MASTERING THE VIC-20: BASIC 
LANGUAGE PROGRAMMING 
4925-088892 200Pgs $14.95 
O CREATING ARCADE GAMES NEW! 
4105-000025 Due Soon $12.95 
O GAMES FOR KIDS NEW! 
4105-000035 Due Soon $12.95 
O THINGS TO DO IN AK OR LESS 
4105-000038 Due Soon $12.95 


0 50-EASY-TO-RUN GAMES 
4760-022188 $10.95 


П VIC GRAPHICS 
4410-001057 187 Pgs $13.95 


O VIC REVEALED Assembly Langu- 
age programming & inside VIC hardware. 


4410-001058 267 Pgs $14.95 
O VIC GAMES 

4410-001060 187 Pgs $13.95 
O KIDS & THE VIC 

4560-000056 215 Pgs $19.95 
O THE ELEMENTARY VIC 
4560-000116 256 Pgs $14.95 


O UNDERSTANDING THE VIC-20 
4840-000003 139Pgs $11.95 
O ZAP! POW! BOOM! Arcade Games. 
4690-009538 156 Pgs $12.95 


O HOW TO USE THE VIC-20 
4250-000134 $ 3.95 


OW. . .PACE has two stores! Our main store, at 345 East Irving Park Road in 
Wood Dale, just West of O'Hare Airport, (phone 312-595-3860), and our new 
location at 1 FIRST NATIONAL PLAZA in Downtown Chicago, (phone 312-372-2464). 


І USE THIS AD AS YOUR HANDY ORDER FORM 


TO ORDER: Just check the block by the title of the book or item you wish to order. 

1 Send this ad, along with your МАМЕ, STREET ADDRESS, CITY, STATE апа 21Р 
CODE, and your Certified Check, Money Order, Personal Check (3llow 2 weeks 
to clear), or your VISA or MASTERCARD NUMBER, EXPIRATION DATE and 
INTERBANK NUMBER (Minimum Charge is $25.00) to 


centers 


DEPARTMENT: C-C 


LOCK BOX 328, BENSENVILLE, IL 60106 


Phone: (312) 595-3860 


1 Please add $2 50 Postage and Handling on ALL Orders. Illinois Residents Add 


| 6% Tax. Foreign Orders Add 10% (Min. $5.00). Prices & availability subject to change. 
me 


PLEASE SEND ME A COMPLETE BOOK & SOFTWARE LISTING FOR: 
1 О APPLE” O ATARI" O COMMODORE” О ІВМ O RADIO SHACK” 
О TEXAS INSTRUMENTS” O TIMEX*/SINCLAIR* O OTHER 
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:гет 82 
:rem 65 
:rem 4Ø 


290 GETA$:IF A$="1"THEN3Ø 
300 IF A$<>"2"THEN 290 
310 PRINT" {BLU} {CLR} ": END 


One more program is presented here to illus- 
trate the uses of GET and INPUT. "Averages" is 
an educational program that instructs the user on 
how to calculate the average of several numbers, 
then random problems are given with multiple- 
choice answers. 

This program uses DEF FNF(X) to define a 
function that will choose a random integer from 1 
to X. This saves typing the function and saves 
memory when a random integer is needed later 
in the program. The GET function is used after 
menu screens are printed and at various places in 
the program to wait before continuing the pro- 
gram. INPUT is used in the sample problems to 
receive a numeric answer. GET is used to receive 
the answer for multiple-choice questions. Random 
numbers are used in the problems and also in 
determining which of three problems will be 
printed. Lines 78—86 in the VIC version and 900— 
1050 in the 64 version determine the multiple- 
choice answers. 

The VIC and 64 versions are essentially the 
same, but have different line numbers (and com- 
bined lines in the VIC version). In the 64 version, 
the first line (POKE 53281,1) changes to blue 
printing on a white screen. The VIC version com- 
bines lines to save memory, but if you have ques- 
tions about program flow, the 64 version may be 
easier to read. 

When you are typing the VIC version, leave 
out all unnecessary spaces. If you prefer to save 
typing time, you may have a copy of the program 
by sending me $3, a blank cassette, and a self- 
addressed, stamped envelope. Please be sure to 
specify the name of the program and which com- 
puter version. Mail to: 

C. Regena 
P.O. Box 1502 
Cedar City, UT 84720 


See program listings on page 170. G 


IT'S TAX TIME 


DO YOUR INCOME TAX THE EASY WAY 


Just LOAD and RUN. The program will prompt you for all INPUTs, 
then compute your taxes or refund. It will optionally print out directly 
onthe proper form or LIST on the screen by form numbers. The pro- 
gram is thoroughly tested and documented. Instruction book forms 
are included. 


SAVE YOURSELF TIME AND MONEY, ORDER TODAY 
1040A with Schedule 1 for V-20 (8K) or C-64 
1040 with Schedules A & B for V-20 (16K) or C-64 . 
1040 with Schedules A & B + 1525 Printout for V-20 (24K) or C-64 
1040 with Schedules A, B, C & SE +1525 Printout for C-64 
All of the above on one tape or disk . . "DEUS Lun EET 
Specify Vic-20 or C-64, specify (T) tape or (D) disk. 
Send check or money order to: 
L.J. Fischer, 2797 Medford Ave., Redwood City, CA 94061 
CA residents add 6% sales tax. 


. $20 
.. $30 
. $35 
$45 
$55 


Write For FREE Catalog ERE NE W бы не а за Write For FREE Catalog 
get a FREE program get a FREE program 


Bil) BM 64 
as SE 


(602) 855-3357 


PROGRAMMERS 


Software CONTEST 


from 
ComputerMat 
will turn 


Send Us 
Your 
i Best 
your yer | D VIC or 64 
VIC or 64 = nae? Program 
а ZH Winners will 
receive royalties 
plus $1,000 
in prizes. 


TARGET 
COMMAND 


` 


MUSIC MAKER 
POP TOP 64 


е CHRISTMAS 
SPECIALS 


We have 
тоге 5 IRS 4 Виу 2 
датев Programs апа 


dd Get 1 Free! 


programs Ў i s E For every 2 
than 2 у 8 VIC or 64 
е. programs you 
buy, we will 
А send you a 
joystick at! “сеу - m fora 
third program free! 


you can 
shake a 


SPACE PAK 


Yos 


MACHINE LANGUAGE FOR BEGINNERS 


A MANSFIELD, SENIOR EDITOR 


Double Decker 


The action begins. We've filled color RAM, drawn 
the screen borders, and set up some random 
enemies. Now we're ready to add some arcade 
action to our all-machine-language game. (The 
entire game we've built so far is contained in the 
BASIC loader, Programs 2 and 3.) 

The section to be constructed this month will 
control the player, accepting input from the 
keyboard and moving a paddle back and forth on 
the screen. It’s so fast in machine language (ML) 
that a delay loop has to be added so we can see 
the paddle move. Without this delay, the paddle 
simply reappears on the other side of the screen 
when you press a key. 

Let’s look at the program flow of the 64 ver- 
sion disassembly (Program 1); it’s functionally 
identical to the VIC version. As always, the first 
thing to do is to set up some preliminary informa- 
tion—the equivalent of assigning values to vari- 
ables in BASIC. At 49249, the first address in the 
program (or first line, if you prefer), we LoaD the 
Accumulator with 169 and store it at 251, a zero 
page location. Then, we do it again, putting 7 into 
252. Recall that the 6502 chip looks at two-byte 
addresses in a peculiar way: the higher one in 
memory (at 252) is going to be multiplied by 256. 
Then the other one (at 251) is added to that, to 
give us the address we're after. So, by adding 169 
to (7 X 256), we get 1961, an address within the 
screen RAM where we want our paddle to start off. 


Printing The Paddle 


Notice that we will be referring to this two-byte 
address pointer several times in the program: 
lines 49279, 49283, 49296 and so on. It will always 
hold the current position of the paddle on the 
screen. Anyway, we've set up our paddle position 
pointer, so now we JSR (Jump to SubRoutine) at 
49345, which prints the paddle on the screen 
(wherever it's supposed to be, governed by what's 
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in our pointer at 251). We load Y with 5, load A 
with 120 (the screen POKE value of our paddle 
symbol), store A using the Indirect Y addressing 
mode, DEY (reduce Y by one), test to see if Y is 
equal to zero yet (BNE), and, if not, branch back 
to 49349, the start of our print paddle subroutine's 
loop. When we've POKEd all five paddle char- 
acters into the right position on screen, we RTS 
(ReTurn from Subroutine). 

Following that RTS, we fly back to 49260, 
only to bounce away again to another subroutine, 
our delay. This is a do-nothing subroutine; it just 
takes up time by LoaDing the Y register with zero 
(line 49355), counting down with DEY, until it 
goes from 255 down to zero again and then we 
RTS. If something starts with zero and is dec- 
remented (lowered by one, like the DEY, DEX, 
or DEC instructions), it clicks down to a 255, then 
254, and so on down. Remember that zero clicks 
down into 255 in these situations; it doesn't freeze 
at zero. We can find out when it hits zero by using 
BNE. BNE always branches unless the most recent 
action caused a zero. (Many instructions will alert 
BNE to zero: LDA 155 would set off a branch, a 
BNE, if address 155 contained anything other 
than zero.) 


Which Key Pressed? 


Once finished with the delay, we return to 49263 
and load the accumulator with whatever number 
is currently in address 197. That's a special address 
in our computers: It always holds the value of the 
key currently being pressed. Try this in BASIC: 


FOR I=1 TO 5000: ? PEEK (197): NEXT 


Then press some keys. You'll notice that each 
key has its own value. This is an easy way to get 
input from the user. For our game, we're just 
going to have the user move a paddle back and 
forth so we need to test for only two direction 


CodePro-64 (с) 1983, SMA 


Overview 
0 — Using CodePro-64 
1 — CBM-64 Keyboard Review 


BASIC Tutorial 
2 — Introduction to BASIC 
3 — BASIC Commands 
4 — BASIC Statements 
5 — BASIC Functions 


Keyboard GRAPHICS 
Introduction to SPRITES 
SPRITE Generator 

9 — SPRITE Demonstrator 

A — Introduction to MUSIC 

B — MUSIC Generator 

C — MUSIC Demonstrator 


Other Options 


K — Keyword Inquiry 
R — Run Sample Programs 


Select Choice or hit f7 for Default 


Now you can learn to code in BASIC and 
develop advanced programming skills with 
graphics, sprites and music—visually. You 
learn by interacting with CodePro-64, a new 
concept in interactive visual learning. 

SEE PROGRAM EXECUTION 

Imagine actually seeing BASIC state- 
ments execute. CodePro-64 guides you 
through structured examples of BASIC pro- 
gram segments. You enter the requested data 
or let CodePro-64 do the typing for you. (It 
will not let you make a mistake.) 

You step through and actually see the 
execution of sample program statements by 
simply pressing the space bar. CodePro-64 
does the rest. You see statements with cor- 
responding graphics and variable value 
displays. 

EXTENSIVE TUTORIAL 

CodePro-64’s extensive tutorial guides 
you through each BASIC command, pro- 
gram statement, and function. You get clear 
explanations. Where appropriate, you invoke 
BasicView to see examples execute and 
watch their flow charts and variables change. 

Ву seeing graphic displays of program seg- 
ment execution you learn by visual example. 
You leam faster and grasp programming 
concepts easier with CodePro-64 because 
you immediately see the results of your input. 

You control your learning. You can go 
through the tutorial sequentially, or return to 
the main menu and select different topics, or 

use keywords to select language elements to 
study. You can page back and forth between 
screens within a topic at the touch of a func- 
tion key. 

Once you have practiced and mastered the 
BASIC language elements you move on to 


os 
10 FOR 1= 10 TO 20 
‘STEP 2 


20372", 
EX 
E] 


CURRENT varves 
nA 
PRESS SPACE BAR TO DEMONSTRATE EXECUTION 


Fi MAIN F3 CURRENT FS NEXT 


ғғ. шомып 12-01 


Маіп Мепи 


more advanced concepts. You learn about 
sprite and music programming. 

SPRITE GENERATOR 

& DEMONSTRATOR 

CodePro-64's sprite generator lets you 
define your oum sprites on the screen. You 
learn how to define sprites and what data 
values correspond to your sprite definitions. 
(You can then save your sprite data to a 
diskette file for use in your own programs.) 
You can easily experiment with different 
definitions and make changes to imme- 
diately see the effects. 

We also help you learn to program with 
sprites by giving you a sprite demonstrator so 
you can see the effect of changing register 
values. You can experiment by moving your 
sprite around in a screen segment, change its 
colorand see the effects of your changes. You 
learn by visual examples. 

MUSIC GENERATOR 
& DEMONSTRATOR 

Our Music Generator and Music Demon- 
strator will provide hours of instruction and 
creative enjoyment. From the beginning of 
your instruction you can compose simple 
tunes on the screen using the generator. 
Once you've completed a composition you 

can save the tune and its associated SID 
parameters to a diskette file. Our music sam- 


OUR GUARANTEE 
We guarantee your satisfaction. You 
must be satisfied with CodePro-64 for 
the Commodore-64. Try it for 10 days 
and if for any reason you are not satisfied 
return it to us (undamaged) for a full 
refund. No risk. 


 CODEPRO.64 


ЕСЕ 
E RENT 
255.255.255 bd to 


21 
DATA X RETURN Retesh 
12 Мен CLEAR HOME 


FI-MAIN F3-CURRENT FS:NEXT 


SYSTEMS 
MANAGEMENT 
ASSOCIATES 


MUSIC GENERATOR 


NOTE NUMBER... MAX NOTE 


MOVE NOTE UP OR DOWN, LEFT OR RIGHT WITH 
CURSOR KEYS. THEN HIT RETURN 


PRESS SPACE BAR TO PLAY NOTE 


DURATION 
Loon 


F2-PLAY & SHOW MUSIC F4-PLAY ONLY 


А new concept 
in interactive visual 
learning. 


CodePro-64" 


ple program can be used alone or incorpo- 
rated into your own programs to read the 
saved music file and replay your songs. 

Our music demonstrator lets you experi- 
mentwith various combinations of music 
programming parameters and hear the 
results. All you do is enter rows of SID 
parameters on the screen to create a particu- 
lar sound. Then you hear each sound by 
playing the "keyboard organ in real time as 
you shift from row to row of SID parameters. 
By seeing your input and hearing the result 
you quickly learn how to create new musical 
sounds and special sound effects. 

Whether you're a beginning programmer 
or an experienced professional, CodePro-64 
will help you improve you Commodore 64 
programming skills. We're sure because 
CodePro-64 was developed by a team of two 
professionals with over 25 years of software 
development experience. 

CodePro-64 is a professional quality edu- 
cational program for the serious student of 
personal computing. And it's fully guaran- 
teed. Order yours today. 

HOW TO ORDER 

Order your copy of CodePro-64 today by 
mail or phone. Send only $59.95 plus $3.00 
shipping and handling to: 

SYSTEMS MANAGEMENT ASSOCIATES 
3700 Computer Drive, Dept. G-1 
Raleigh, N.C. 27609 

Available on diskette only. MasterCard/- 
VISA accepted. For faster service on:credit 
card orders, call toll free 1-800 SMA-RUSH. 
(1-800-762-7874). Dealer inquiries invited. 


Commodore 64 is a trademark of Commodore Business 
Machines, Inc. 
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. Program 1: Paddle Routine 


INITIALIZATION 

49249 LDA # 169 

49251 STA 251 

49253 LDA # 7 

49255 STA 252 

49257 JSR 49345 

MAIN LOOP 

49260 JSR 49355 

49263 LDA ШӘЛІ 

49265 СМР % 56 

49267 ВЕО 49279 
49269 СМР # 8 

49271 BEQ 49294 
49273 CMP # 35 

49275 BEQ 49361 
49277 BNE 49260 
СО LEFT? 

49279 ПЕС 251 

49281 LDY # O 

49283 LDA ( 251 )Y 
49285 CMP % 32 

49287 BEQ 49305 
49289 INC ОБД 

49291 JMP ---> 49260 
СО КІСНТ? 

49294 LDY # 7 

49296 LDA ( 251 )Ү 
49298 CMP # 32 

49300 BEQ 49327 
49302 JMP ---> 49260 


МОУЕТЕЕТ 

49305 ІКС Z5 

49307 LDY #6 

49309 LDA # 32 

49311 STA ( 251 )Y 
49313 LDA 251 

49315 BNE 49319 
49317 DEC 252 

49319 DEC 251 

49321 JSR 49345 

49324 JMP ---> 49260 
MOVE RIGHT 

49327 рү %0 

49329 LDA % 32 

ADS ITS Sm (Б) 
49333 INC 251 

49335 BNE 49339 
49337 INC 259 

49339 JSR 49345 

49342 JMP ---» 49260 
DRAW PADDLE 

49345 LDY #5 

49347 LDA # 120 

49349 STA ( 251 )Y 
49351 DEY 

49352 BNE 49349 
49354 RTS 

DELAY 

49355 LDY * 8 

49357 DEY 

49358 BNE 49357 
49360 RTS 

49361 RTS 


keys. Let's use the 1 and 3 keys, for left and right 
movement. Try pressing 1. You'll see 56's on 
screen. (VIC gives 0.) Press З and you'll get 8's. 
(VIC gives 1.) 

Since this is an all-ML game, we'll need a 
way to get out of it, to return to BASIC. For that, 
we'll use the 0 key as an escape. When you press 
it, you'll get 35 as your value. So, lines 49265 
through 49275 simply compare what we found in 
address 197 against 56, 8, and 35 and branch to 
the appropriate subroutines further down in the 
program. If we got some other value, line 49277 
sends us up to another delay and then another 
try for a pressed key. 

АП of this multiple comparing should remind 
you of the ON-GOTO command in BASIC. This 
is ML’s version of that common computer tech- 
nique for branching to several alternative actions. 

To move the paddle left (the routine starting 
at 49279), we've got to first check to see if we can 
move any further left. Obviously, we don't want 
to move the paddle into the border of our screen 
and come popping out the other side. So we DEC 
251 temporarily, to check if the next character to 
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the left of our paddle is a blank (character #32). If 
not, it must be a wall, so we're sent back to our 
get-a-keystroke routine at 49260. 

However, if we find a blank, we can go ahead 
and redraw the paddle one space to the left of its 
current position. So, at 49305, we INC the pointer 
to restore it to its correct value. (Recall that we 
DECed it to check for a blank.) Then we want to 
blank out the paddle character six over from the 
current address (to get rid of the rightmost paddle 
character). Load Y with #6, load A with the blank 
character, #32, and store A. 

These next four lines are an important ML 
technique: double DEC. We need to lower our 
pointer address by 1 because we're sliding the 
whole paddle over 1 to the left on screen. We 
can't just DEC 151 because we might be crossing 
a page boundary (256) and need to also lower 152, 
the more significant byte of the two-byte pointer. 
Remember that we said LDA would affect a BNE 
instruction? We LDA the lower, less significant 
byte. If it's a zero, we "fall through" the BNE to 
address 49317 and also lower 252. If not zero, we 
branch to 49319 and just lower 151. Notice that 


We had а problem. So we invented 
PC-DocuMate™ to solve it. The problem was 
how to quickly master the VIC-20 and 
CBM-64 keyboards and easily start pro- 
gramming in BASIC on our new personal 
computers. First we went through the 
manuals. 


INCONVENIENT MANUALS 

The user's guide was a nuisance and the 
programmer's reference manual was just 
plain inconvenient to. use. We found the 
control key combinations confusing and the 
introduction to BASIC to be too "basic” for 
our needs. We needed a simple solution to 
our documentation problems 

So we decided to surround the keyboard 
of each PC with the information we wanted 
We decided to print whatever we needed on 
sturdy plastic templates which would fit the 
keyboard of either the VIC-20 or Commo- 
dore 64. 


SIMPLE SOLUTION 

This was the simple solution to our prob- 
lem. Now we could have the essential 
information right at our fingertips. 

On the left side and top of the templates 
we put BASIC functions, commands, and 
statements. On the lower left we used key 
symbols to remind us of how to use SHIFT, 
RUN/STOP, CTRL and the “Commodore” 
key. Over on the bottom right side we put 
some additional keys to help remember 
about CLR/HOME and RESTORE. But we 
were still a little confused, 


STILL CONFUSED 

We found we were confused about music 
programming, color graphics, and sprites. 
On both the VIC-20 and the CBM-64 tem- 
plates we carefully organized and summar- 
ized the essential reference data for music 
programming and put it across the top— 
showing notes and the scale. All those 
values you must POKE and where to POKE 
them are listed. 

Then to clarify color graphics we laid out 
screen memory maps showing character 
and color addresses in a screen matrix. (We 
got this idea from the manuals.) 

For the VIC-20 we added a complete 
memory address map for documenting 
where everything is їп an expanded or 
unexpanded VIC. 


For the Commodore 64 we came up with 
a really clever summary table for showing 
almost everything you ever need to know for 
sprite graphics. 


GETTING EASIER 

Now we had organized the most essential 
information for our VIC and 64 in the most 
logical way. BASIC, music, color graphics, 
and sprites all seemed a lot easier. Our 
initial problem was solved by PC-Docu- 
Mate™. 

But we have a confession to make. 


WE CHEATED 

We had solved this kind of problem 
before. In fact, many times before. You see, 
we at SMA developed the original PC-Docu- 
Mate for the IBM PC. We've made templates 
for IBM BASIC and DOS, for WORDSTAR™, 
VISICALC™ and other best-selling software 
packages for the IBM PC. 

So we knew we could invent another 
PC-DocuMate™ to solve our problems with 
the VIC-20 and Commodore 64. Now our 
solution can be yours and you can join the 
thousands of satisfied users of our template 
products. 

Take advantage of our experience and 
success with PC-DocuMate templates. Get 
one for your personal computer. 


SOME SPECIFICS 

Our templates for the VIC and 64 are 
made from the same high quality non-glare 
plastic as the more expensive IBM PC 
versions. 

The templates are an attractive gray 
color and are imprinted with a special black 
ink which bonds permanently to the plastic. 
They are precision die-cut to fit your 
keyboard. 

Unlike some other products we've seen 
in this category, PC-DocuMate templates 
are professionally and expertly designed. 
And they are fully guaranteed. 


OUR GUARANTEE 
We guarantee your satisfaction. You must 
be satisfied with your PC-DocuMate for your 


VIC-20 or CBM-64. Try it for 10 days and if 
for any reason you are not satisfied return it 
to us (undamaged) for a full refund. No risk. 


EUREKA! 


That's what we said when our new 
“invention” solved all our VIC-20™ and 
Commodore-64™ programming problems 


SOLVE YOUR PROGRAMMING 
PROBLEMS WITH PC-DocuMate™ 

Order your PC-DocuMate today (by 
phone or mail) and solve your VIC-20 or 
CBM-64 programming problems. Send only 
$12.95 and specify which computer you 
have. We pay for shipping and handling. 
Use the coupon below or call 919-787-7703 
for faster service. 


YES! Please RUSH me VIC-20 1 
| templates and/or CBM-64 tem- | 
| plates at $12.95 each. I have enclosed | 
| S——— by: | 
Check — Money order __MC/VISA — | 


Name 


Address 


City State 


Card # Exp. 


Signature 


Foreign orders (except Canada) add $5.00 US 


Mail to: Systems Management Associates 
3700 Computer Drive, Dept. J-1 
P.O. Box 20025 
Raleigh, North Carolina 27619 


VIC-20 and Commodore 64 are trademarks of Commodore Busi- 
ness Machines, Inc. 


Ad no. 731 Copyright 1983, SMA. 
Dealer inquiries invited. 


falling through the BNE has the effect of lowering 
both bytes. Finally, we JSR to the paddle drawing 
routine and then JMP (jump) back up to our main 
loop of the program. 

The method for redrawing the paddle to the 
right is quite similar, the primary distinction being 
a double increment instead of double DEC (see 
lines 49333 through 49337). 

If you have any comments or questions, 
please send them to: Machine Language For Be- 
ginners, P.O. Box 5406, Greensboro, NC 27403. 


ML Mailbag 


Here’s a letter we recently received: 


In your article "Safe Places’’ (December 
1983), you were starting an ML game. And 
you started at address 12288 with the 8K 
expansion. I have VICMON which is on 

tape and so I need the 8K for it. Is there 
another place to put this game? I was thinking 
of putting it in the cassette buffer starting 

at 828. 


Jeff Cutcher 


VIC memory can be a problem. You might 
want to use the Simple Assembler (November 
1983) ina VIC with 8K expansion memory to create 
this ML game. Shorter ML routines can be stashed 
away into the cassette buffer if you aren’t using 


the cassette drive at the time. However, the ML 
game has outgrown the space available in this 
buffer with the addition of this month’s paddle 
routines. 

To summarize, both VIC and 64 have a few 
safe zones in zero page: address 2 is unused by 
the computer, addresses 163-177 are largely used 
by the cassette operating system and can be 
employed when you're not using cassette, and 
251—252 are free (we're using them this month to 
hold our paddle pointer). 

Above zero page, you can use 679—767 and 
828-1019 (the cassette buffer). On the 64 only, 
there is a nice zone from 49152-53247. To make 
enough space for the game on the VIC, we first 
POKE 56,48 (to keep BASIC below this area) and 
then can use addresses 12288 and above. 

See program listings on page 172. @ 


COMPUTE!'s Gazette 


Toll Free Subscription Order Line 


800-334-0868 
In NC 919-275-9809 


TELSTAR 64 


Sophisticated Terminal Communications Cartridge for the 64. 


*PFO* 10D 000 CP D1 D2 BELL 12:30:00 
(TELSTAR's Status Line) 


Don't settle for less than the best! 


* Upload/Download to/from disk or tape. 

* Automatic File Translation. 

% Communicates in Industry Standard ASCII. 

Real-Time Clock plus Alarm Clock. 

Line editing capability allows correcting and resending long command lines. 
* 9 Quick Read functions. 

* Menu-driven. 

Similar to our famous STCP Terminal package. 

* Works with Commodore Modems and supports auto-dialing. 


The best feature is the price — only $49.95 (Cartridge and Manual) 


10:14:36 


Machine Language Monitor Cartridge 
for the CBM 64 


More than 20 commands allow you to access the CBM 64's Microprocessors 
Registers and Memory Contents. Commands include assemble, disassemble, 
registers, memory, transfer, compare, plus many more. 


Someday every CBM 64 owner will need a monitor such as this. 
Cartridge and Manual — $24.95 


aSiei 
HEISE 
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8K in 30 Seconds 
for your VIC 20 or CBM 64 


Ifyou own a VIC 20 or a CBM 64 and have been concerned 
about the high cost of a disk to store your programs on 
worry yourself no longer. Now fheres the RABBIT. The RABBIT 
comes in a cartridge, and at a much, much lower price 
than the average disk. And speed ... thisis one fast RABBIT. 
With the RABBIT you can load and store on your CBM 
datasette an 8K program in almost 30 seconds compared 
to the current 3 minutes of a VIC 20 or CBM 64, almost as 
fast asthe 1541 disk drive. 


The RABBIT is easy to install, allows one to Append 
Basic Programs, works with or without Expansion 
Memory, and provides two data file modes. The 
RABBIT is not only fast but reliable 


{The Rabbit for the VIC 20 contains an expansion con: 
NOW $59.95 / 
y 


nector so you can simultaneously use your memory board, etc) 
THE BEST | 


For CBM 64, PET, APPLE, and ATARI 


Now, you can have the same professionally designed Macro 
Assembler/Editor as used on Space Shuttle projects 

© Designed to improve Programmer Productivity. 

ө Similar syntax and commands - No need fo relearn peculiar 
synlaxes and commands when you go from PET to APPLE to 
ATARI 

© Coresident Assembler/Edilor - No need fo load the Editor, then 
the Assembler, then the Editor, etc 

© Also includes Word Processor, Relocating Loader, and much 
more шш 

ө Powerful Editor, Macros, Conditional and Interactive 
Assembly, опа Auto - zero page addressing 

Still not convinced; send for our free spec sheet! 


SS 
$39.95 


3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919) 924-2889 (919) 748-8446 
Send for free catalog! 


(Pie quus 


P.O. Box 3354 Cherry Hill, N.J. 08034 


Toll FREE (800) 992-3300 
For Information Call (609) 424-7106 


Call us for reliable service, experience and affordable prices! 


FLOPPY DISK 
CM D 64 Elephant SS/DD (10).. 


Word Pro 64 . y 2564 
PROGRAMMING SERIES 
Assembler 64 
= = Logo .. 


Сет», a — EVE — Pilot 
DES Simon Basic . 


“От. 2 Screen Editor 
CPM 


EDUCATION 


1541 Disk Drive | матем. 


Computer 

$ Science 1-1 
Technology 
History .. 


1520 Color Plotter . 
1525 Printer . 
1526 Printer . 
1530 Datasette 
1600 Modem... 
1650 Auto Modem. 
1110 8K Memory Exp 


Elephant SS/DD (10)... 
Computer Verbatim SS/DD (10)... ў 
5 WORD PROCESSING 
1 9 Quick Brown Fox n 
2 Easy Script К 


Geography. 
GAMES 


Avenger … 


Pinball Spect 
Lemans ... 


Radar Rat Race 
1111 16K Memory Exp...... pee ange 
1011 RS 232 Gane 
Terminal Interface. Omega Race 
1211 Super Expander... Sea Wolf .. 
1212 Programmer's INFOCOM 
Aid Cartridge............ *39 | Zork I, Il, Il 
1213 Machine Suspended 


Language Monitor..... *39 | Starcross.. 


1702 
14" screen, outstanding. Ese 
resolution, special Commodore heavy duty 
computer circuit canvas 
Lower $ with vinyl 
= S259 DU 
XC waterproof. 
PRINTERS TUE 
eg. 
EPSON Disk Drive у; 
RX-80, RX-80 FT. ........ $ CALL $6 99 Espon МХ 80.5735 
spon 1 
ТЕР оо `... SCALE ЫШ Okidata 92 ......57.99 
OKIDATA BOOKS 
CP resin iis НЬ *445 | Kids and the VIC ............ 18 
Programmer's Reference 
STAR Guide: МС Жы аА, 
Gemini 10.. Programmer's Reference 
Gemini 15.. o Guide-64 
C. ITOH COMPUTE 
Gorrilla 1st Book of CMD 64 ......... 
Prowriter 1st Book of Sound & Graphi 


1st Book of 64 Games... 


SMITH CORONA Reference Guide to 64 
TP-2.... o5 i 
Cardco Printer Interface SENG 

T st Book o! T 
Tymac the Connection .. А, 
САВОСО VIC Games s is 
6 Slot Expander Interface... *72 | Machine Language for 
3 Slot Expander Interface... “31 | Beginners see 


Ordering & Payment Policy 
Prices reflect a cash discount. For C.O.D., Visa, and Master- 
card add 3% Immediate delivery with certified check or wired 
funds. N.J. resident add 696. Prices subject to change. 


Shipping Catalog 
For shipping and handling We sell a large selection of 
add 396. ($3 minimum) hardware and software. 
Larger shipments require Send $1 for catalog, refun- 


additional charge. dable with order. 


VIDEO INSTRUCTION TAPES! 
STEP BY STEP INSTRUCTIONS 


PICTURES ARE WORTH 
THOUSANDS OF WORDS AND SAVE 
HOURS OF FRUSTRATION 


USE YOUR VCR SIDE BY SIDE WITH YOUR COM- 
PUTER TO LEARN HOW TO PROGRAM, AND HOW 
TO USE PROGRAMS. YOUR VCR ALONG WITH 
YOUR COMPUTER SERVE AS YOUR PERSONAL 
TUTOR. PAUSE YOUR VCR TO REVIEW AND 
LEARN AT YOUR OWN PACE. 


TAPES NOW AVAILABLE 


CAT# TOPIC APPROX RUN TIME 

BP-3 LEARNING C-64 BASIC 2 HR $49.95 
BP-4 LEARNING VIC-20 BASIC 2 HR $49.95 
DIO-1 COMMODORE 64 DISK 1/0 1 HR 45 MIN $49.95 
010-2 VIC 20 DISK 1/0 1 HR 45 MIN $49.95 
EW-3 CALC-RESULT ADVANCED 1 HR 30 MIN $39.95 
EW-4 CALC RESULT EAZY 1 HR 15 MIN $29.95 
EW-5  PRACTICALC C-64 1 HR 15 MIN $29.95 
EW-6 PRACTICALC VIC-20 1 HR 15 MIN $29.95 
WP-5  SCRIPT-64 1 HR 30 MIN $39.95 
UT-2 THE LAST ONE 1 HR 30 MIN $39.95 


Electronic worksheets: EW-3-6. Detailed step by step in- 
sturction in the use of electronic spread/sheet software. 
Work along and set up a complete example worksheet. 


Basic programming: BP-3 & 4. Teaches BASIC Language 
commands and programming techniques. Builds your know- 
ledge from beginning in advanced levels. 


Data File Programming: DIO-1 & 2 teaches BASIC Language 
data file programming using random, sequential, and relative 
access data files. 


VHS or BETA FORMAT 


Add $3.00 per order for shipping and handling. 
Add $3.00 for C.O.D. 


Em 
To Order | VISA 
Phone or Write CROWE 


LYNN  coMPUTER SERVICE 


6831 West 157th Street Tinley Park, Illinois 60477 


(312) 429-1915 


VIC-20 AND COMMODORE 64 ARE TRADEMARKS OF COMMODORE 
BUSINESS MACHINES, INC. CALC-RESULT IS A TRADEMARK OF HANDIC 
SOFTWARE. PRACTICALC IS A TRADEMARK OF COMPUTER SOFTWARE 
ASSOCIATES. 


Making 


More 


Readable Listings 


Brent Dubach 


Have you ever tried to find a key subroutine 
or loop in a long BASIC listing? If you have, 
you know how tedious it can be. This tutorial 
demonstrates some very sneaky BASIC editing 
techniques that you can use for more readable 
listings. For the VIC and 64. 


A few carefully chosen variable names can help 
make the difference between a readable program 
and an unintelligible mess. But BASIC does not 
make these choices easy. Did you ever want to 
use a BASIC keyword like TO or FN within a vari- 
able name, such as LET TOP = 10 or PRINT FN$? 

Commodore BASIC won't allow it. But by 
fooling a couple of BASIC routines, you can use 
these illegal variable names and do even more to 
improve the appearance of your listings. Let's see 
how to use this technique and then consider what 
makes it work. 


Illegal Variable Names 


The Key is to use graphics characters where they 
normally don't belong. You're probably used to 
using a graphics character as the last character in 
the abbreviation of a BASIC keyword. For ex- 
ample, if you type a P followed by a SHIFTed O, 
BASIC understands that you intend an ordinary 
POKE command. But let's see how BASIC will 
handle a graphics character in the middle of a 
variable name. 


lø LET NJUMBER = 59 
20 PRINT NJUMBER 


To get the graphics character between N and U, 
type a SHIFTed J. You can use any graphics char- 
acter that will not result in an abbreviation of a 
BASIC keyword. (For example, an N and a 
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SHIFTed E combine to form the keyword NEXT.) 
Now LIST the program 


10 LET NUMBER = 50 
20 PRINT NUMBER 


and RUN it. 


50 

READY. 

Nothing too impressive here. АП we have is 
a program that LISTs and RUNS exactly as it would 
if we left out the graphics characters. Now let's 
do something that is downright illegal. 
10 LET TOP = 65 


20 LET BOTTOM = 90 
30 PRINT BOTTOM - TOP + 1 


If you enter and RUN this program, you'll get a 

syntax error. The sequence TO may not appear 

anywhere within a variable name as it does here 

in TOP and in BOTTOM. It is reserved for use as 

a BASIC keyword only (as in FOR | -1 TO 5). 
Let's try to fool BASIC. We'll place a graphics 

character (the SHIFTed J) just before the offending 

last character that completes the BASIC 

keyword—that is, before the O in each TO. 

lø LET TJOP = 65 


20 LET BOTTJOM = 90 
30 PRINT BOTTJOM - TJOP + 1 


Here's what you see when you LIST it: 


lø LET TOP = 65 
20 LET BOTTOM = 90 
30 PRINT BOTTOM - TOP + 1 


These lines appear identical to the illegal program 
you entered a moment ago. Now RUN the 
program: 


26 
READY. 


It works, with an illegal variable name in every 
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Тһе МІР Terminal is only the first іп а 
whole series of elegant software for 
your Commodore 64 called the VIP 
Library. This complete collection of 
easy-to-use, serious, high quality, 
totally interactive productivity software 
includes VIP Writer, VIP Speller, VIP 
Calc, VIP Database, VIP Disk-ZAP, VIP 
Accountant and VIP Tax. All are equal 
in quality to much more expensive 
software for the IBM PC, and all are 
very affordable! 


жн 


VIP Library programs are not limited 
by the size of your computer's 
memory. All programs use virtual 
memory techniques to allow creation 
and use of files larger than your 
computer's available work area. You're 
only limited by the space on your disk! 


©1983 by Softlaw Corporation 
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Hi-res technology and sprites allow 
VIP Library programs to bring you task 


Icons, made famous by the Apple Lisa™ 


and the Xerox Star™. With these 
advanced sprite representations of the 


task options open to the user, even the 


total novice can, at a glance, perform 
every task with ease. Just look at the 


icon and press a key! No programs are 


easier or more fun to learn and use! 


All VIP Library programs are 
compatible with each other and other 
computers for easy file transfer. Each 
uses ASCII, the universal language of 


They' re right! To start with the best 
you've got to have the VIP Terminal! 


m Built-in 40, 64, 80 and 106 columns 

= Word wrap for a formatted display 

8 Talk to any computer 

B Use any modem and printer 

= Written in fast machine code 

m 15 entry phone directory 

= 20 programmable keys 

B Automatically dial, redial, upload, 
download and log-on 

ш Professional 96 character ASCII display 

= 128 character ASCII keyboard 

= Simultaneous on line printing and 
saving of files to tape and disk 

@ Use and save files as big as your disk! 

E E Mail & E-COM Compatible 


Get yours NOW! 


The 40-characters-per-line display of 
the Commodore 64 is inadequate for 
serious computing. An 80-column 
display is the industry standard. VIP 
Library programs bring this standard to 
your Commodore 64 with state-of-the- 
'art graphics, without need for costly 
hardware modifications. With VIP. 
Library programs you can freely choose 
from four displays: the standard 40 
column display, plus a 64, 80 and even 
a 106 column by 25 line display. With 
these programs you can have more text 
on your screen than on an IBM PC or 
an Apple lle with an 80-column board! 
Welcome to the professional world! 


computer communications so that files 


сап 
computers without modification! The 
Library also gives you the benefit of a 
consistent icon and command 
structure. Once you have learned one 
program, the others will come easily. 


=== For Orders ONIY 


=s — Call Toll Free — 


е sent to and received from other 


Softlaw Corporation has years of soft- 
ware experience in micros. We currently 
offer the full-line VIP Library for other 
micros in the U.S. and in Europe. Now we 
are bringing this experience to the Com- 
modore 64 so you get ultra-| -high quality 
software at very affordable prices. 


Order Status and Software Support 
call (612) 881-2777 
Available at Dealers everywhere. If your 
Dealer is out of stock ORDER DIRECT! 
MAIL ORDERS: $3.00 U.S. Shipping ($5.00 


CANADA; $10.00 OVERSEAS. Personal 
checks allow 3 weeks. 


9072 Lyndale Ave. So., Mpls., ММ 55420 


AUTHOR’S SUBMISSIONS 


ARE ENCOURAGED. 


COMMODORE 64 COMPUTER AND SOFTWARE 
(more power than Apple I! at half tne price) SALE 


$99.°°" , 


HAVE 
THE 
* 170K DISK DRIVE $159.00 * 
* TRACTION FRICTION PRINTER $109.00 * 


WE 
HAVE 
THE 
LOWEST 
PRICES 


BEST 
SERVICE 


% COMMODORE 64 COMPUTER $99.50 
You pay only $199.50 when you order the power- 
ful 84K COMMODORE 64 COMPUTER! LESS the 
value of the SPECIAL SOFTWARE COUPON we 
pack with your computer that allows you to 
SAVE OVER $100 off software sale prices!! With 
only $100 of savings applied, your net computer 
cost is $99.50!! 


SOFTWARE BONUS PACK $29.95 
When you buy the Commodore 64 Computer 
from Protecto Enterprizes you qualify to pur- 
chase ONE SOFTWARE BONUS PACK for a 
special price of $29.95!! Normal price is $49.95 


SPECIAL SOFTWARE COUPON 


We pack a SPECIAL SOFTWARE COUPON 
with every COMMODORE 64 COMPUTER- 
DISK DRIVE-PRINTER-MONITOR we sell! 
This coupon allows you to SAVE OVER 
$100 OFF SALE PRICES! $200-$300 sav- 
ings are possible!! 


(example) 


PROFESSIONAL SOFTWARE 


(40 programs on disk or 24 programs оп 5 tapes). COMMODORE 64 
Name List Sale Coupon 
* 170K DISK DRIVE $159.00 Executive Word 
Р $99.00 $69.00 $59.00 
You рау only $259.00 when you order the 170K EAS Data Base $89.00 $59.00 $46.00 
Disk Drive! LESS the value of the SPECIAL 20,000 Word Dictionary 524.95 51995 514.95 
SOFTWARE COUPON we pack with your disk Electronic Spreadsheet $89.00 $59.00 $46.00 
drive that allows you to SAVE OVER $100 off Accounting Раск CO SOG) ARE 
software sale prices!! With only $100 of savings ТОҢ Processor 
applied, your net disk drive cost is $159.00. Tape $69.00 $56.00 $37.00 
Disk $79.95 $63.00 $42.00 
Ж TRACTION FRICTION PRINTER $109.00 ае ее 
You pay only $209.00 when you order the Com- Tape 54495 $39.00 $26.00 
star TIE deluxe line printer that prints 8 1/2 x 11 Disk $49.00 $42.00 $29.00 
full size, single sheet, roll or fan fold paper, Total Label 2.6 
labels etc. 40, 66, 80, 132 columns. Impact dot Tape $24.95 $18.00 $12.00 
matrix, bi-directional, 80 CPS. LESS the value of оа қақ 52955 523109 51500 
the SPECIAL SOFTWARE COUPON we pack Helper (Disk) ООО aay AES 
with your printer that allows you to SAVE OVER Basic Tutor(Tape/Disk) $29.95 $24.95 $15.00 
$100 off software sale prices!! With only $100 of Typing Teacher Eos 
i i i i (Tape/Disk) $29.95 52495 51 
$109.00, uet IQ RIS MC ДЫ Sprite Designer (Disk) 51695 514.95 510.00 
ХБ Medicinemen (Таре) 51995 517.95 $12.00 
Weather War II (Tape) 51995 $17.95 $12.00 
80 COLUMN BOARD $99.00 Professional Joy Stick 52495 $15.95 $11.00 
Now you program 80 COLUMNS on the screen Eight een 52525 1995 IDEE 


Dust Cover $ 895 $ 695 


(See other items in our catalog!) 
Write or call for 


Sample SPECIAL SOFTWARE COUPON! 


\ 4 
at опе time! Converts your Commodore 64 to 80 UE 


COLUMNS when you plug in the 80 COLUMN 
EXPANSION BOARD!! List $199 SALE $99 
PLUS— you also can get an 80 COLUMN BOARD 
WORD PROCESSOR with mail merge, terminal 
emulator, ELECTRONIC SPREAD SHEET. List 
$59.00 SALE $24.95 if purchased with 80 
COLUMN BOARD!! (Tape or Disk) 


80 COLUMNS IN COLOR 
EXECUTIVE WORD PROCESSOR $69.00 
This EXECUTIVE WORD PROCESSOR is the 
finest available for the COMMODORE 64 com- i i 

puter! The ULTIMATE for PROFESSIONAL Word- 1те Касас е busnesa adu 
processing application! DISPLAYS 40 OR 80 or Commodore 64 Computers 
COLUMNS IN COLOR or Black and White! Sim- Item List "SALE 
ple to operate, powerful text editing with a 250 Inventory Management $99.00 $59.00 
WORD DICTIONARY, complete cursor and in- ACID АСУ vane 89900. 7359500 
E ccounts Payable $99.00 $59.00 
sert/delete key controls line and paragraph inser- Payroll $99.00 $59.00 
tion, automatic deletion, centering, margin set- General Ledger $99.00 $59.00 
tings- and output to all printers! Includes a (*COUPO PRICE $49.00) 
powerful mail merge. List $99.00 SALE $69.00. 
20,000 WORD DICTIONARY - List $24.95 SALE 
$19.95. EXECUTIVE DATA BASE - List $89.00 
SALE $59.00. (Disk only). 


EXECUTIVE QUALITY 
PROFESSIONAL BUSINESS SOFTWARE 


| Add $10.00 for shipping, handling and insurance. Illinois residents Н 
| please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII |] 
| orders. WE DO NOT EXPORT TO OTHER COUNTRIES. 1 

Enclose Cashiers Check, Money Order ог Personal Check. Allow 14 days І 
|9 delivery, 2 to 7 days for phone orders, 1 day express та!!! Canada 1 
1 Orders must be іп U.S. dollars. 


VISA — MASTER CARD — C.O.D 


* LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
е BEST SERVICE IN U.S.A. e ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 


PROTECTO 


E N TE R P R | 7 Е 6 (WE LOVE OUR CUSTOMERS) 


BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 


VIC-20 


(a real computer at the price of a toy) 


$69.59 


* 40-80 COLUMN BOARD $59.00 
* 32K RAM EXPANDER $95.00 


VIC-20 COMPUTER $69.50 
This 25K VIC-20 computer includes a full size 66 
key typewriter keyboard color and graphics keys, 
upper/lower case, full screen editor, 16K level II 
microsoft basic, sound and music, real time 
floating point decimal, self teaching book, con- 
nects to any T.V. or monitor! 


40-80 COLUMN BOARD $59.00 
Now you can get 40 OR 80 COLUMNS on your 
T.V. or monitor at one time! No more running 
out of line space for programming and making 
columns! Just plug in this Expansion Board and 
you immediately convert your VIC-20 computer 
to 40 OR 80 COLUMNS!! List $129. SALE $59.00. 
You can also get an 80 COLUMN BOARD WORD 
PROCESSOR with mail merge, terminal emulat- 
or, ELECTRONIC SPREAD SHEET!! List $59.00. 
SALE $24.95 if purchased with 80 COLUMN 
BOARD! (Tape or Disk). 


32K RAM EXPANDER $95.00 
This cartridge increases programming power 
over 8 times!! Expands total memory to 57K 
(57.000 bytes). Block switches are on outside of 
Cover! Has expansion port!! Lists for $199 (OUR 
BEST BUY!) 


60K MEMORY EXPANDER $49.00 
Sixslot — Switch selectable — Reset button — 
Ribbon cable — CARDCO. A must to get the 
most out of your VIC-20 Computer! 


8K RAM CARTRIDGE $39.00 
Increases programming power 2 1/2 times. Ex- 
pands total memory to 33K (33,000 bytes). 
Memory block switches are on outside of cover! 
Includes FREE $16.95 game. 


16K RAM CARTRIDGE $55.00 
Increases programming power 4 times. Expands 
total memory to 41K (41,000 bytes). Memory 
block switches are an outside cover! CARDCO 
Includes FREE $29.95 adventure game!! 


12" GREEN SCREEN MONITOR $99.00 
Excellent quality GREEN PHOSPHOROUS 
VIDEO MONITOR with antiglare, 1920 characters 
(80 characters x 24 rows). Save your TV! a must 
for 80 column word processors. PLUS $9.95 for 
VIC 20 or Commodore 64 Cable. 


12" AMBER SCREEN MONITOR $119.00 
Premium quality AMBER VIDEO MONITOR With 
antiglare, (BO characters x 24 rows), exceptional- 
ly clear screen, faster scanning. PLUS $9.95 for 
VIC 20 or Commodore 64 Cable. 


FANTASTIC 
PRINTER 
SALE 


low 
as 


° 15 Day Free Trial - 180 Day Immediate Replacement Warranty 


LIST SALE 
80 COLUMN THERMAL PRINTER — 60 CPS $199 $149 


Bi-directional, dot matrix, prints 8%” letter size paper, full 80 columns, high 
resolution graphics, dot bit addressable, special symbols and true decenders! 
(Centronics parallel interface) 


80 COLUMN TRACTOR-FRICTION PRINTER — 80 CPS $399 $209 
Bi-directional, dot matrix, impact, prints single sheets, continuous feed paper, 

adjustable columns, 40 to 132 characters! Roll paper adapter $32.95. 

Centronics parallel interface) 


PREMIUM QUALITY 10” CARRIAGE T/F PRINTER — 120 CPS $499 $289 
Bi-directional, impact, 9 x 9 dot matrix with double strike for 18 x 18 dot matrix. 

High resolution bit image (120 x 144 dot matrix) underlining back spacing, left and 

right margin settings, true lower decenders, with super and sub scripts. Prints 

standard, italic, block graphics, special characters, plus 24 of user definable 

characters and much more!! Prints single sheets, continuous feed and roll paper! 

(Centronics parallel interface) 


PREMIUM QUALITY 15%” CARRIAGE PRINTER — 120 CPS $599 $379 
Has all the features of the Premium Quality 10” Carriage T/F Printer above plus a 

15%” carriage and more powerful electronic components to handle large business 

forms! (Centronics parallel interface) 


HIGH SPEED PREMIUM QUALITY Т/Ғ 


10” PRINTER — 160 CPS $699 $499 
Save printing time with these plus features: 160 CPS speed, 100% duty cycle, 8K 

buffer diverse character fonts special symbols and true decenders, vertical and 

horizontal tabs. This is Red Hot Efficiency!!! (Serial or Centronics parallel interface) 


HIGH SPEED PREMIUM QUALITY 
TIF 15%” PRINTER — 160 CPS $799 $599 


Has all the features of the 10” Carriage high speed printer plus a 15%” carriage and 
more powerful electronics to handle larger business forms! (Serial or Centronics 


parallel interface) 

PARALLEL PRINTER INTERFACES: (IN STOCK) 

NOTE: Other printer interfaces are available at computer stores! " AL 
WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT Ep =] O т с сто 
САМАРА. 
Enclose Cashiers Check, Money Order ог Personal Check. Allow 


14 days for delivery, 2 to 7 days for phone orders, 1 day express E N TE R PRIZ E 5 IWE LOVE OUR CUSTOMERS) 


mail! Canada orders must be in U.S. dollars. We accept Visa 
and MasterCard. We ship C.O.D BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 


* For УІС-20 and COMMODORE 64 $49.00 
* For all APPLE COMPUTERS $69.00 
* For ATARI 400 and 800 COMPUTERS $79.00 


($$ SANYO MONITOR SALE!! 


e 80 Columns x 24 lines 

e Green text display 

e East to read - no eye strain 
e Up front brightness control 
e High resolution graphics 

е Quick start - no preheating 
e Regulated power supply 


кез: e Attractive metal cabinet 


9" Data Monitor 


e UL and FCC approved 


e 15 Day Free Trial - 90 Day Immediate Replacement Warranty 


9" Screen - Green Text Display 


$ 79.00 


12" Screen - Green Text Display (anti-reflective screen) $ 99.00 
12" Screen - Amber Text Display (anti-reflective screen) $119.00 


14" Screen - Color Monitor (national brand) 


Display Monitors From Sanyo 


With the need for computing power growing every day, Sanyo has 
Stepped in to meet the demand with a whole new line of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5 x 7 dot 
characters as the input is 24 lines of characters with up to 

80 characters per line. 

Equally important, all are built with Sanyo's commitment 

to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 


$249.00 


@® SANYO 


Official Video Products 
of the Los Angeles 1984 Olympics 
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e LOWEST PRICES • 15 DAY FREE TRIAL е 90 DAY FREE REPLACEMENT WARRANTY 
е BEST SERVICE IN U.S.A. е ONE DAY EXPRESS MAIL е OVER 500 PROGRAMS » FREE CATALOGS 


l 
! orders. WE DO МОТ EXPORT ТО OTHER COUNTRIES. I 
{ Enclose Cashiers Check, Money Order or Personal Check. Allow 14 [| 
[| days for delivery, 2 to 7 days for phone orders, 1 day express mail! 1 
{ Canada orders must Бе іп U.S. dollars. Visa - MasterCard - C.O.D. 1 


PROTECTO 


Е М ТЕ R PRIZ E 6 (WE LOVE OUR CUSTOMERS) 


BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 


VIC 20 
40-80 COLUMN BOARD 


only 55900 


Now you can get 40 ог 80 Columns on your T.V. ог monitor at опе time! Мо 
more running out of line space for programming and making columns. Just 
plug in this board and you immediately convert yur VIC-20 computer to 40 or 
80 columns! Comes in an attractive molded case with instructions! List 
$129.00. Sale $59.00. 


FOR ONLY $24.95 you can get a 40-80 Column Board "WORD PROCESSOR” with mail merge 
and terminal emulator PLUS! AN ELECTRONIC SPREAD SHEET (like Visicalc) the word 
processor requires 8K—mail merge 16K! List $59.00. Sale $39.90. *If purchased with board 
only $24.95. (Tape or Disk.) 


WE LOVE OUR CUSTOMERS! 


COMMODORE 64 ву > 
80 COLUMN BOARD T 


50000 


Now уои сап program 80 columns оп the screen 
at one time! Converts your Commodore 64 to 80 
coilumns when you plug in the PROTECTO 80 
Expansion Board List $199. Sale $99.00 


FOR ONLY $24.95 you can get an 80 Column Board "WORD PROCESSOR” with mail merge and 
terminal emulator PLUS! AN ELECTRONIC SPREAD SHEET (like Visicalc) List $59.00. Sale $39.90. 
*|f purchased with board only $24.95. (Tape or Disk.) 


Add $3.00 for postage. Add $6.00 for CANADA, PUERTO RICO. HAWAII ie С» | 

orders. WE ОО МОТ EXPORT ТО OTHER COUNTRIES 

Enclose Cashiers Check, Money Order or Personal Check. Allow 14 

days for delivery, 2 to 7 days for phone orders. 1 day express mail! ENTERPRIZES RECOV OOA CUSTOMERS) 

Canada orders must be in U.S, dollars. We accept Visa and Master 

EOS E CRISE ied BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 


line. Try it with LETTER, ЕМ$, EFFORT, SEND, 
or your own favorite forbidden variable name. 

A word of caution, though. ST, TI, and TI$ 
are reserved variable names, not keywords like LET, 
PRINT, and other BASIC commands or functions. 
You will not be able to use variable names whose 
first two letters match these (like START or TIME) 
even with the technique described in this article. 
Since they are just variable names, however, you 
may embed them elsewhere within longer names 
of your own (FIRST and ATTIC, for example) 
without any special editing tricks. 


Indented Listings And 
Blank Lines 


Besides preventing the selection of certain variable 
names, BASIC also seems to prevent the entry of 
blank lines as well as spaces at the beginning of a 
line. Thus we cannot neatly frame the blocks of 
code—loops, or IF/THEN options, or sub- 
routines—that occur in a program. If you have 
programmed only in BASIC, you may not be con- 
cerned about such things. But anyone who has 
used a structured language like Pascal appreciates 
being able to see a listing like this: 


10 FOR I = 1 TO 10 

20 PRINT "WE INDENT EVERY STATEMENT" 

30 PRINT "THAT LIES WITHIN" 

40 PRINT "THE FOR-NEXT 'BLOCK'" 

50 NEXT I 

60 

70 PRINT "AND LEAVE A BLANK LINE BETWEEN 
BLOCKS" 


Try entering and LISTing the program above. 
Here's what you should see: 


10 FOR I = 1 TO 10 

20 PRINT "WE INDENT EVERY STATEMENT" 

3Ø PRINT "THAT LIES WITHIN" 

4Ø PRINT "THE FOR-NEXT 'BLOCK'" 

5Ø NEXT I 

7Ø PRINT "AND LEAVE A BLANK LINE BETWEEN 
{SPACE} BLOCKS" 


The blank line and all the indentations have dis- 
appeared. Of course, Commodore BASIC lets you 
place a single colon at the start of each line and 
then indent as much as you wish. But that’s not 
the same as a nice, clean blank line. 

Once again, we can type an extra graphics 
character and fool BASIC. When typing in а pro- 
gram, many people type a space after the line 
number for readability. But instead of the space, 
you can type the SHIFTed J. Reenter the preceding 
program this way: 


lØJFOR I= 1 TO 10 


207 PRINT "WE INDENT EVERY STATEMENT" 
307 PRINT "THAT LIES WITHIN" 

4002 PRINT "THE FOR-NEXT 'BLOCK'" 
5ØJNEXT I 
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Now when you LIST, you see an indented format 
identical to the one you first tried to enter. 

Fooling BASIC into giving you a blank line is 
a little trickier. A single SHIFTed J will not do the 
job. If you add а line 99, say, to your program 
and put only the graphics character on that line, 
line 99 will not show up in the LISTing. But try 
entering this (note the space in between the two 
SHIFTed Js): 


99 \ 5 


Now LIST the program and you'll see a blank 
line 99. 


Paying The Price 

There is a price to pay for all this. The most obvious 
(and painful for those with unexpanded VICs) is 
memory consumption. Long variable names and 
indentation gobble up a lot of bytes. A final version 
of a routine, though, can be condensed by a good 
list-crunching program, while the original remains 
a very readable version for later examination or 
revision. 

Another penalty is simply the bother of re- 
membering to type extra characters. Be careful 
whenever you try to edit a line. To preserve any 
indentation, you must enter a SHIFTed J in place 
of the space following the line number each time 
you change the line. And it's easy to forget to 
“legalize” a variable name by inserting a graphics 
character within an embedded BASIC keyword. If 
you do forget, you will be reminded when you 
get a syntax error in the program. So watch your 
editing steps carefully. 

The hunt-and-peck typist (with a large hunt- 
to-peck ratio) might find that all these extra char- 
acters are a nuisance. But a little irritation can 
lead to a lot of satisfaction when you get a more 
readable program listing. 


How Does It Work? 

There are BASIC routines that RUN and LIST a 
program. If you've experimented with the short 
listings here, or with your own, you have proved 
to yourself that RUN apparently doesn't mind 
using keywords in variable names, and LIST 
seems to accept leading spaces in indented lines. 
If these key routines are so tolerant, what is it 
that requires us to be so sneaky in achieving them? 
The answers lie in the behavior of several other 
parts of BASIC. 


Are They Really Illegal? 
First, let's consider illegal variables and a BASIC 
routine we'll call TOKENIZE. 

We usually think of BASIC commands as 
words like INPUT or LET or GOTO. But the RUN 


SJB DISTRIBUTORS. 
ONE STOP SHOPPING FOR 
COMMODORE SYSTEMS. 


(commodore 


NEW COMMODORE PRODUCTS 
Executive 64 

1526 Printer 

WORD PROCESSING 64 Z 

NEW - Mirage 80 col 
WordPro 31 /Spellright . 

Spellright (Dictionary) 

Paper Clip 


SPECIAL - Busiwriter с, D) 
Quick Brown Fox (R) 
SPREADSHEETS 64 & 
Calc Result - Advanced (R,D) 
Busicalc 11 - More Power! (R,D) 
Multiplan 64 (D) 
Calc Result - Easy (R).... 
Busicalc | - SPECIAL! (C,D) 
DATA BASES 64 Z 
Mirage Data Base (D) 
MFile (merges with WordPro) (D) . . . 
Micro Spec Data Manager (D) 
Codewriter (develops programs)(D). . . 
PRODUCTS OF THE MONTH 
TCS 64/80 - NEW! (D) 
(WP/Data Base Бра) 


Delta 10 (160 cps) - NEW! .. 
UTILITIES 64 

Vic Tree (4.0 Basic) (R)... 

64 Super Expander (R). . 

Simon's Basic (R) 

Cardco Printer Utility (C) 

MS-Backup (Back Up Data!) (D: ^ 
ACCOUNTING 64 z 

Home Accountant (Continental) 

Tax Advantage: (merge w/home 


General edger A/R, A/P, P/R, Inv. 
(Info Design's Original) (0)... 
Numeric Keypad (Hardware) . 
Numeric Keypad (Cardco) 
TELECOMPUTING 64 Z z 
Vic 1650 (Auto Ans/Dial) Modem . 
Vic 1600 Modem 
Hes Modem (Downloading Software) 
Super Term (Download/80-128 Form). 
Micro Term 64 (Download P/D) 
EDUCATION 64 Ж 
Spelling 1 (Koala) (D) 
Geometric (Koala) (D) . . 
1.0. Baseball (D) 
Bible Baseball (D) 
Happy Tutor (Typing) (D) 


LANGUAGES 64 Z 
Instaspeed Basic Compier (0) 
Nevada Cobol (D). . à 
Pilot (D) 


Assembler Developme! 
64 Forth (R) 

PRINTERS - DOT MATRIX 
Epson RX80 (80 Шу 
MX80 w/FT (80 cps) . 
FX80 (160 cps) 
FX100 (160 cps) 14” width 
Okidata 82A 
Okidata 92 . . 
NEC 8023A 
Star Delta (160 cps) - NEW! . 
Star Gemini 10X (120 cps) .. 
Star Gemini 10/15 
Transtar 315 (Hi Res., Color) 
Micro Edge Printer Paper (540 Sheets). 

ESSENTIALS 

Commodore 64 
1541 Disk Drive 
1525 Printer (80 col/DM) . 
1530 Datasette 
1520 Plotter/Printer (4 ae 
1526 Printer. 


8032 (80 column Pet). . . 

SuperPet (5 languages!). 

8050 Dual Drive (1 mg.) ES 

8250 Dual Drive (2 mg.).......... 1295 

2031, 170K Single Drive 

64K Upgrade for 8032. ... 

SuperPet upgrade for 8032 

4023 Printer (80 cps, 80 col) 

8023 Printer (150 cps, graphics) 

6400 Printer (40 cps, LQ) 

LETTER QUALITY PRINTERS 

Diablo 620, 25 cps. 

Transtar 130, 16 cps - 132 col.. 

Transtar 120, 14 cps - 80 col 
MONITORS 

Panasonic CT 160 (color). 

Panasonic TR120 (w/spkr,green). . . . 

Sanyo/Amdek-Green, No Audio, 12". . . 

BMC/Sanyo-Green, No Audio, 9" .. . . 

Cable (For Above) A/V 


VIC ACCESSORIES 
8K RAM Expand. Cart 
16K RAM Expand. Cart 
24K RAM Expand. Cart 
27KRAM (Expands Victo full 32K) 
3 Slot Expander 


6 Slot Expander 
Joystick Blaster (ADR Rapid - Fire). . . 
INTERFACES & ACCESSORIES 
Data 20 80-Col. Exp 
Mr. Computer 80-Col. Exp. 
5-Slot Exp. (64) 
Vic Switch (connect 8 64's or Vic's 
to DD/Printer) 
Cables 3M, 6M, 12M for above. . 
Verex (Box of 10) 5% Diskettes. 
Connection(Pet/64 graphics, 2K Buffer) 
Cardco Print * Graphics 
Cardco Cardprint . . . 
MW 302 Parallel. . 
PET/IEEE Cable (1m). 
IEEE/IEEE Cable (1m) 
Interpod (Intelligent IEEE, 
RS232, serial) 
ADA 1800 (IEEE/Parallel) 
ADA 1450 (IEEE/RS232 (M/F)) 


VISA/MASTERCARD 
MONEY ORDERS 
BANK CHECK 

C.0.D.’s Accepted, 3% of order/min. $5) 
In stock items shipped within 48 hours. 
F.0.B. Dallas, Texas (Texas Res., Add 5% Tax). 
Products shipped with manufacturer's warranty. 
Prices subject to change without notice. 
$10 Handling fee on orders below $50. 
Continental U.S. orders only, please. 
APD & FPO: Add 3%/Min $5. 


"Defective units must have retum 
authorization number and include 
copy of invoice. 


SJB DISTRIBUTORS INC. 
10520 Plano Road, Suite 206 
Dallas, Texas 75238 


TO ORDER 
CALL TOLL FREE 
800-527-4893 


800-422-1048 
(Within Texas) 


CATALOG 
Send Postcard with Name & Address to 
speed processing. 


NOTE: SJB HAS A FULL LINE OF COMPUTER MEDIA IN STOCK, CALL OR WRITE FOR MORE INFORMATION. 


routine does not see it that way. By the time RUN 
sees a program, BASIC keywords have been re- 
placed by single-byte numeric codes, or tokens. 
TOKENIZE is the part of BASIC that translates the 
keywords we type into these codes. For example, 
when we type the word INPUT, TOKENIZE will 
collect the characters in that word from the five 
bytes of memory they occupy, match them with a 
word in the computer's list of BASIC keywords, 
and then replace them with the token for INPUT 
(the number 133), which takes up only one byte. 
This saves some space in BASIC memory. 

But TOKENIZE also discards any out-of-place 
graphics characters as it crunches a BASIC com- 
mand into the computer’s memory. This is what 
allows us to enter forbidden variable names. When 
we insert a graphics character (like the SHIFTed J) 
in the middle of what would otherwise be a 
keyword, imagine how TOKENIZE must react. 
Does it ever find the word INPUT? Not quite. As 
it is collecting characters, it is interrupted before 
finding a perfect match with the BASIC word 
INPUT. The match is a failure, but the character 
which foiled it is eventually discarded. When 
RUN gets at the program, it now finds a plain 
INPUT (five bytes worth) instead of the single-byte 
token that represents the INPUT command. Any 
such character string is treated as a variable name. 

Our illegal variable names, then, are not il- 
legal at all. We just have to be sneaky enough in 
entering and editing them to prevent TOKENIZE 
from doing its job. 


Finding The Right Routine 
And what of the graphics character used at the 
beginning of an indented line? 

TOKENIZE is involved again, this time be- 
cause it does just what we want done: It keeps 
spaces right where we put them. Some other parts 
of BASIC use a routine that discards spaces. One 
of these is the part that translates the characters 
in a line number we type into the numeric form in 
which it is stored. Try leaving a space between 
two digits in a line number. No problem—the 
spaces are discarded and the line number appears 
in a listing just as if you had not inserted them. 

BASIC continues to throw away spaces until 
a nondigit character which eliminates all indented 
lines is found. The rest of the line is turned over 
to the TOKENIZE routine. But by then it is too 
late: All indentations have already been stripped. 

Our strategy must be to place a character 
immediately after the line number so that the 
following spaces will be handled by the right 
routine for our purposes—by TOKENIZE. A 
graphics character, first recognized as a nondigit 
character in the collection of a line number and 
then neatly discarded by TOKENIZE, is the perfect 
choice. 
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Guarding The Blanks 


Finally, you may recall that in order to create a 
line completely blank except for its number, we 
needed first a graphics character, then a space, 
then a second graphics character. The reason for 
the first was just discussed. We need the space so 
there will be something on the line for TOKENIZE 
to accept. Remember that entering a completely 
blank line just results in its elimination from the 
program. But what of the second graphics charac- 
ter? If TOKENIZE doesn't mind spaces, why 
shouldn't it accept a whole line full of them fol- 
lowing the initial graphics character? 

In the first place, we probably want only one 
space—just enough to create a blank line. And 
second, TOKENIZE never gets to look at those 
trailing spaces anyway. The very first part of 
BASIC involved in handling a new line, the part 
that collects characters off the screen, discards 
these spaces. Both graphics characters are needed 
to protect lone blanks from the space-killing habits 
of a couple of parts of BASIC. If you want blank 
lines with a lot of spaces, though, there is no 
reason why you couldn't enter one with, say, 70 
of them. Just be sure they have graphics "body- 
guards" on either end. 


А Do-Nothing Program 

It has been said that no programming language 
can prevent the writing of bad programs. To prove 
that this is also true of editing tricks designed to 
promote readable listings, type in the following 
program. It's not good for much except sneaky- 
editing practice—and perhaps confounding a few 
BASIC programming friends with the fact it runs 
without error. 


100 LET BEGINNING = 1 


119 LET END = 10 

2127) 

130 FOR POSITION = BEGINNING TO END 
140 INPUT NOTHING 

150 PRINT NOTHING 

16@ GET NOTHING 

17@ NEXT POSITION 

180 

199 END 


Ап іпсоте (ах program for everyone to use. 
TAX COMPUTATION has been approved for 
COMMODORE'S ENCYCLOPEDIA OF 
SOFTWARE as well as many other directories. 


Your taxes will be completed quickly, easily, and 
to your benefit. 


TAX COMPUTATION Commodore 64 $39.95 
K.R.Rullman С 20. T199/4A $19.90 


4550 Murray # 81 The cost of the program is tax 


deductible along with part of the 
Beaverton, OR 97005 cost of your computer. 


E 


СОММОРОНЕ 64 


Just for You! 
PERSONAL FINANCE 


Continental Home Accountant (D) 
Continental Tax Advantage (D)... . $33 
Continental FCM First Class Mail . . $29 
Softsync Personal Accountant (D&C) .. 
CheckEase (C&D) 
Timeworks Electronic Checkbook 
(OO) econ ak ыы E А 
Timeworks Money Manager (D&C) . 
M.S.I. Inventory (D) 


- $47 


Creative Household Finance (D) $23 
Creative Household Finance (C) $19 
Creative Home Inventory (D) $13 
Creative Home Inventory (C) $10 
Creative Loan Analyzer (D) $13 
Creative Loan Analyzer (C) $10 
WORD PROCESSING 

Broderbund Bank St. Writer (D) 


Hesware Omniwriter (D) .. 
Rainbow Writers Asst. (D) . 
Blue Sky Script 64 (D). .... 


Cardco Write М ow! (О)... с 539 
Muse Supertext (О)... . $88 
On-Line HomeWord (D) . . $39 


ELECTRONIC 

SPREADSHEETS 
Hesware Multiplan (D) . 
Hesware Отпісаіс (D) . 
MSI Practicalc (D&C) . . : 
MSI Programmable Spreadsheet (D) ... 
B. SKY CALC Result Easy (D) 
Home Calc (D) . . 
Home Calc (C) .. 


HOME APPLICATIONS 


Spinnaker Aerobics (D) 
Softsync Computer Mechanic (D) . 
Softsync Computer Mechanic (C) 
Creative Car Costs (D) . 
Creative Car Costs (С). 
Creative Decision Maker (D) 
Creative Decision Maker (C) .. 9 
Неѕшаге Time & Money Manager (0) $39 
Timeworks Data Manager (D&C) 
Compuserve Starter Kit (5 hrs) . . 


ART & MUSIC 


Epyx Fun with Art (CT) .. 
Epyx Fun with Music (CT) 
Hesware Synthesound (CT) . 
Hesware Paintbrush (CT) . 
Spinnaker Delta Drawing (CT) 
Koala SpiderEater 
Koala Geometric Designs . 
Koala Crystal Flowers 
Koala Logo Designs . . 
Delta Music (CT) . 


EDUCATION 


Spinnaker Alphabet Zoo (CT) . . 
Spinnaker Cosmic Life (CT) . 
Spinnaker Facemaker (CT) .. 
Spinnaker Fraction Fever (CT) . 
Spinnaker Kids on Keys (CT) 
Spinnaker Kindercomp (CT) ... 
Spinnaker Story Machine (CT) . 
Spinnaker Up For Grabs (CT) . 
Spinnaker Delta Drawing (CT) . 
Creative I Am Your 64 I (D) .. 
Cretive I Ат Your 64 Il (D) .... 
Hesware Turtle Graphics II (CT) . 
Hesware Туре ‘N’ Writer (CT) . 
Delta Music (CT) 


$uch A Deal 


Lowest Prices — Guaranteed!* 


COMMODORE 64 Cont'd. 


LANGUAGES & UTILITIES 


Hesware 6502 Pro Devel Sys (D). $19 
Hesware Hesmon 64 (CT) . $26 
Hesware 64 Forth (СТ)... - $45 
Acess Spritemaster (D&C) . . $23 
Timeworks Programmer Kits I, II, III 

(D&C) each $19 
Blue Sky Last One (D) ... 2.5879 


Blue Sky 80 Column (Р) 
Blue Sky Graphic Designer (D) 
Blue Sky 64 Statistics (D) . 
Blue Sky Super Basic (D) . 
Blue Sky Add On Basic (D) . 
Blue Sky Super Copy (D) . 


BUSINESS SOFTWARE 


Total Business 3.6 (D) .. 
Total Time Mgmt. (D) 
Total Lable-Mail (D). .... 

Total Research Asst. (D&C). 
Cymbal General Ledger (D) . 
Cymbal Acct. Receivable (D) 
Cymbal Acct. Payable (D) .. 
Cymbal Inventory Control (D) . 
Cymbal Invoice Writer (D) .... 


[GAMES] 


Epyx Dragon Riders of Pern (D&C) 
Epyx Silicon Warrier (CT) 
Sega Congo Bongo (CT) 
Infocom Enchanter (D) . 
Infocom Infidel (D) ..... 
Synapse Blue Max (D&C) 
Sublogic Pinball (D&C) … 
Hesware Maze Master (СТ). 
Broderbund Choplifter (CT) 
Epyx Pitstop (CT) 


COMMODORE VIC 20 


. $22 
. $19 
. $17 


Creative Home Office (D) . 
Creative Home Office (С) . 
Creative Household Finance (D) 
Creative Household Finance (C) 
Creative Home Inventory (D) 
Creative Home Inventory (C) 


Thorn Music Composer (CT) . $25 
М.51. Practicalc Plus (D) .. . $35 
М.5.1. Practicalc Plus (T) . $33 
М.5.1. Practicalc (D) . $32 
М.5.1. Practicalc (T) $29 
Hesware Synthesound (CT) . $19 
Hesware Vic Fourth (CT) . . $39 
Hesware Hes Mon (CT) . $26 
Cardco Write Now .. . $27 
Hesware 6502 Pro Dev Sys . $19 
Epyx Fun with Art (CT)... $26 
Epyx Fun with Music (CT) $26 
Broderbund Mastertype (C $24 


EDUCATIONAL SOFTWARE 


Hesware-Spinnaker 


KinderComp (CT) .... . $23 
Story Machine (CT) . . $23 
Face Maker (CT) .. . $23 
Kids On Keys (CT) 523 


523 
526 
519 


Alphabet Zoo (СТ) .. 
Hesware Turtle Graphics (СТ) 
Creative Pipes (С) 
Creative Spills & Fills (C) . $19 
Creative Hangman & Hangmath (С) ... $10 
Creative Math Hurdle & M.Maze (C) … $10 


COMMODORE МІС 20 Cont'd. 


[GAMES] 


Creative Choplifter (CT) 
Epyx Temple of Apshai (C) 
Sega Congo Bongo (CT) 

Sega Star Trek (CT) .... 


Rock Bottom 
Prices on 
Peripherals! 


DATA 20 


Vic 40.80 Display Manager . 
C64 Video Pak 80 

Includes Word Manager FREE 
Parallel Printer Interface 


[HESWARE| 


Hescard Vic 5 Slot ...... 
HesModem Vic & C64 


KOALAPAD 


C64, Vic, Atari . 
Apple 


PRINTERS 


BMC BX80 .. 
GEMINI 10X . 
AlphaCom 40 Column 
AlphaCom 80 Column. .. 
Vic, C64, Atari 
Cable with AlphaCom FREE 
Cardco Letter Quality LQI . 
Cardco Two Color Impact . 


[MODEMS] 


Hes Modem Vic C64 .. 
Hes Auto Ans. Vic C64 


ELECTRONIC ARTS ™ 


Home Software for the Commodore 64 


FREE DISKETTE 
with each purchase of electronic 
arts software 


COMMODORE 64 


Pinball Construction Set (D) 
M.U.L.E. (D) . 
Worms? (D) 
Archon (D). 
Hard Hat Mack (D) . 
Murder on the Zinderneuf (D) 
The Tesseract Strategy (О)... 
Word Flyer (D) . 
The Cut & Paste 
D-Bug (D) 


USI Autodial — Answer RS232c Axis Assassin (D) . g 

USI Autodial ......... Music Construction Set (D) . $40 

USI C64 Plain Modem . Financial Cookbook (D) . . $50 
Dr. J & Larry Bird One on .. $40 


MONITORS 


BMC 12" Green 
BMC 12" HiRes Green 
BMC 12" Amber 


. $99 


BMC 12" HiRes Amber $129 
BMC 13* Composite Color $239 
Monitor cable w/above .... - $10 


$uch A Deal 


Concord Disk Drive .. 9 

Commodore 1541 .. $269 CALL TOLL FREE 
1-800-431-8697 
Jess s Orders Only! 


3 Way Grip Stick . 


CARDCO 


Numeric Keypad C64 
Graphic Printer Interface 
Economy Printer Interface . 
Commodore 64 5 Slot . 
16K Board ....... 
Cassette Interface 


SURGE PROTECTION 


903 S. Rural, #102 
Tempe, AZ 85281 


. $29 
. $69 
. $39 4 
. $49 For Information, Customer 


7 Service Release Dates, etc. 
Call 


5% 


25 


One Socket « ES 602-955-3857 
Two Socket . . $39 
10 Socket ... . $79 (С) = Tape (D) = Disk (CT) = Cartridge 


*TERMS OF OFFER; If you find a price for any software or peripheral in this issue that is lower than our advertised price, we'll guarantee to beat it! Valid only on product in similar in-stock conditions. 
Valid only on prices appearing in print in this issue. 
ORDERING & TERMS: Send cashier check, money order; personal/company checks allow 3 weeks bank clearance. VISA/MasterCard accepted. Provide phone number with order. SHIPPING: 
Software add $6.00 for first piece, add $1.00 each additional piece. Hardware add 3% or $10.00 whichever is greater. Returns must have authorization number (call 602-968-9128) for authorization 
number). All returned merchandise subject to restocking fee and must come with all original packaging. No returns allowed after 30 days from shipping date. Prices are for cash; VISA and MasterCard 
add 3%. Prices subject to change without notice. All products subject to availability from manufacturers and/or suppliers. All prices in U.S. dollars. 


Getting Started 
With A Disk Drive 


Parts: 
Questions And Answers 


Charles Brannon, Program Editor 


In the conclusion of this series, we answer 
several common questions about disk drives 
and disk files. 


Q: can you use CMD with disk files? 


A: Yes. CMD is used to divert output from the 
screen to another device. It is usually used with a 
printer to make listings (OPEN 4,4:CMD4:LIST). 
After a CMD, everything that would go to the 
screen ends up going to the device you OPENed. 
For example, a series of PRINTs can be sent either 
to the screen or to the printer with CMD. 

Many people don’t know that CMD has the 
same syntax as PRINT#. For example, you can 
use: 


CMD 4,” THIS IS A MESSAGE" 


CMD 4 by itself will, therefore, send a blank line, 
as well as direct output away from the screen. If 
you have a disk file opened for writing, you can 
use CMD to have all PRINT statements write to 
this file. Just remember that the blank line put out 
by CMD will give you problems if you try to read 
the file with INPUT#. 

To cancel a CMD (highly recommended be- 
fore you CLOSE a file), use PRINT#, as in 
PRINT#4:CLOSE 4. This also insures that every 
last drop of your file is written out. 
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Q: What do I do if a program crashes and the 
red “busy” light is still on? 


A: Be careful. The program may have OPENed 
a file for writing. You need to properly CLOSE 
the file to prevent a bad directory entry. Use this 
one line to make sure all files are closed: 


CLOSE 15:OPEN 15,8,15:CLOSE 15 


Be aware that OPENing or CLOSEing the 
command channel will disrupt any OPEN files, 
forcing them CLOSEd. 

If a file isn’t closed properly, it appears on 
the directory with an asterisk next to the filename. 
To clear it up, enter: 


OPEN 15,8,15,”V”:CLOSE 15 
Do not attempt to scratch such a file. 


Q: Why can't I read my friend's disk on 
my 1541? 


А: Even though Commodore drives 4040, 1540, 
and 1541 are supposed to be read/write compati- 
ble, differences exist. First, most drives deviate 
from the ideal speed of 300 RPM (revolutions per 
minute). Depending on the extent of the deviation, 
this can cause either trivial problems, such as a 
retry (the head attempts to reread a sector that it 


COMMODORE OWNERS... 
there is no need to spend thousands 
of dollars for a new business computer! 


Nor is there need to go through the hassle and 
expense of learning a complicated new system. 


An easy expansion will convert your Commodore? into a powerful business computer that will 
have you running productive business programs as quickly as 1, 2... plug it in and grow! 


Begin with the reliable new MSD® Super Disk ... the only disk drive readily available for 
Commodore computers. Gain instantaneous random access to programs and information, and 
save valuable time in executing your programs. 


Next … interface the new, state-of-the-art dot matrix printer ... the Panasonic? KX-P1060 for 
hard copy that will support and document your task. 


Add expansion modules for greater power and up to 64K memory. Our terminal emulators allow 
you to communicate with other computers, such as the SOURCE, DOW JONES or COMPUSERVE. 


Complete the expansion process with software applications to address accounting, word 
processing, and other business requirements. 


Don't spend thousands of dollars on a complicated РС... expand your Commodore and get down 
to business. The expansion is so easy you will be up and running the same day. 


Call or соте by today to learn more about Your Business Software's "Expand Your Business Plan." 


399.00 
ви SUPER DISK SPECIAL! 
i Single Disc Drive Dual Disk Drive 
plus the faster plus the faster 
IEEE Interface IEEE Interface 
$429.00 $749.00 


Panasonic KX-P1060 
Super Disk 
Dual Super Disk 
VTE 40 Terminal Emulator 
CTE Terminal Emulator Cassette 
CTE Terminal Emulator Diskette 
Expansion RAM ЗК 
8K 


16K 
24K 


SOFTWARE 


Accounts Receivable/Billing 
Accounts Payable/Checkwriting 
General Ledger 

Inventory Management 
Payroll 

Any 3 of the above programs 
Calc Result 

Home Accounting Plus 

Bank Street Writer 

Typing Tutor 

Speed Reader II 

First Class Mail 

Oracle (data base) 

Tax Advantage 

Multi Plan 

Quick Brown Fox 


Prices are for prepaid orders only and reflect a 
cash savings; send a cashier's check or money 
order. Charge card orders are slightly higher. 
All items subject to availability and prices 
subject to change without notice. Overseas 
orders do not include shipping and handling. 


® signifies manufacturers’ trade marks 
and copyrighted products. 


VISA 


TO ORDER, CALL TOLL FREE 
800/527-5341 
Texas and Canada 214/526-3348 


MOST ORDERS SHIPPED SAME DAY! 
FREE SURFACE FREIGHT 
UPS Blue Label add $3.00 


couldn't read on the first try), or it can make а 
disk totally unreadable. 

А sector оп а disk can hold 256 bytes, and 
has a finite area on the disk's surface. The head 
has to be synchronized with the speed of the disk 
in order to write to а selected sector. It is aided in 
this by timing information written to the disk 
when it was formatted (NEWed). The physical 
area of a sector is determined Бу the speed at which 
the disk turns. 

If the disk turns faster than it should, the 
data overflows the sector, overwriting nearby 
sectors and the timing data. If the disk turns too 
slowly, it does not fill up the sector. The data may 
also be written too compactly to be readable. 

You may not notice if your drive is too fast or 
too slow, since the speed at which it reads or writes 
usually matches the speed at which the disk was 
formatted. "Fast" and “slow” are relative to indi- 
vidual drives, not to 300 RPM. 

A fast drive may miss the more compact in- 
formation written by a slower drive. It goes so 
fast the slower data is seen as a “blur.” The faster 
drive may also have trouble writing to the disk, 
since the timing (formatting) information is simi- 
larly compacted. If you do manage to write to the 
slow-formatted disk, the faster drive cannot 
squeeze its information into the sectors created 
on the slower drives. In the worst case, the faster 
drive overwrites the timing information, making 
one or more sectors totally unreadable on either 
drive. 

Now, if you bring a disk formatted on a fast 
drive to a slower drive, things aren't as bad. The 
slower drive can easily read the longer sectors 
created by the fast drive. When it writes to the 
disk, it just doesn't use all the physical space allo- 
cated by the fast drive. But when you bring the 
disk back to the fast drive, it may not be able to 
read the sectors written by the slower drive. 

There are other potential variations, such as 
head alignment and DOS versions. In theory, 


Free Disk Program 


Sunsoft's 1541 Disk Backup program copies almost 
any disk. It's FREE when you buy any disk program from 
our free catalog, now featuring GETCHA! and CIPHER. 
GETCHA! gives you five levels of play on a random 
playfield. Get the dollars before the taxman gets them— 


or you! Music and graphics, for Com. 64, tape or disk: 
$1495. And now, a program for people who need (shh!) 
security. CIPHER sees to it that your computer files are 
accessible only to you. For 64, on disk: $1495. 


а Т (БЕ RES ad 
mar SUNSOFt 


5% sales tax) 
33820 


most Commodore drives should be compatible, 
but beware of the variations. It's always safe to 
try to read any disk on any drive, but beware of 
writing. If you're not sure, try to write with your 
friend's drive on a disk formatted on your drive. 
Then try out the file on your drive again. This 
way, you can confirm if disk-swapping is safe for 
both of you. 


Q: How many files can I have OPEN at once? 


A: The operating system (OS) permits you to 
have up to ten files open simultaneously. How- 
ever, each file must use a different disk buffer in 
the OPEN statement. The disk buffer is internal 
to the disk drive, and accumulates data until it 
holds a block (256 bytes) of data. The buffer then 
transfers data to a disk sector (in a write operation) 
or to the computer (for reading). 

The OPEN command specifies the disk buffer 
to be used as the secondary address: 


OPEN filenum,deonum, buffer 


filenum —File number used in INPUT#, GET#, 
PRINT#, and CLOSE commands. 

devnum — Hardware device number (8 for a 
single disk drive) 

buffer — A secondary address from 2-14 
specifying which buffer to use. Buffer number 
1 is reserved for program saves and loads. 
Secondary address 15 is reserved for the com- 
mand channel. 


If you have more than one disk file open 
simultaneously, each file must use a unique buffer, 
or data will become garbled. 


Q: How do I make a backup copy of a disk? 


A: It’s important to make a backup copy of 
commercial software. That way, you can use the 
copy, and store the original in a safe place. If any- 
thing goes wrong, you can just make another 
working copy. Unfortunately, most software is 
copy-protected, to prevent illegitimate copies 
from being made. 

Even if the software isn't protected, there are 
no built-in commands to copy an entire disk. It's 
easy enough to LOAD, then reSAVE BASIC pro- 
grams, but machine language programs, sequen- 
tial data files, relative files, and mysterious USR 
files are far more difficult. Your best bet is to use a 
backup program. For your convenience, we have 
reprinted Harvey Herman's single drive backup 
program. It works.on both an expanded VIC and 
the 64. 

See program listing on page 163. @ 


A Perfect “5” for Your 64 


Every American has to pay taxes. 
Why pay more than you should? 
Soft People's With TaxWare, a year round record keeping system...you store all tax related info on 


electronic copies of the most popular tax forms. With TaxWare you may calculate tax 


тм due at any time. Make one change on one form and all other forms are re-computed, 
ax a re ® You сап do endless ‘what ifs‘, i.e. “what if your spouse takes a job”, “what if 
I sell my stock”, “what is the credit for child care”... 


® You may tag any item belonging to husband/wife or joint and see the different 
tax consequences. 
$ © 5 * Handles itemized deductions. income averaging. dividends, stocks, 
44 self-employment, rents. royalties. childcare. marriage deductions and more... 
* Create lists as you need for income. medical deductions, IRA payments or 


TAX DEDUCTIBLE anything else. 


t * Lis re easily di Я Is automatically transferred to the proper 
Tax Preparation Lis: А easily displayed and updated totals automa А prop: 
aid tax forms. 


è Handles all popular forms: 1040 Schedule A. B. G, Schedule С. Сл. D. Е. W. 2441. 
* An Annual Update Plan/and or Major Update if significant tax laws change will be 


d M 09 available for the next year. 
ш ш MO 

Meet the Tough Manager. M | SSI n Ke 

The Best data base managing tool for the collection, 


arrangement and display of alphanumeric data. 


TER 5 : The Key you've looked 

he unique pattern matching and searching A 

capabilities make dMOS the best researching for, but wasn’t there. 

program available. After programming for hours you press RUN for 
Pattern matching: a final check of your work - the computer locks up. 


Nothing appears on the screen. You press RUN/STOP 
… nothing - you press RESTORE...nothing - you look 
for the missing key but it isn’t there. Now you don’t 
have to turn off your computer and lose hours of work. 


* Can be used on either or both sides of the string. 
* Map search technique to achieve a *logical AND", 
while searching between fields. 


* Display either those records found by a search or Add the Missing Key: 
those NOT found. ® Press this key and the computer resets itself 
Printer eontrol: н 


from апу kind of lock-up. 
Rearrange and supress fields. * Load and run the program included with the 


* Supress Field titles. $ 9 5 Missing Key and your*BASIC program is restored 
* Insert short (10 character) texts. * Takes nothing away from your computer. neither 


* Selectively print records. memory or a plug-in port. 


* Fits onto your Commodore 64 keyboard (No wiring 
Phone Boss’ 


10 add). 
* Will not void your CBM warranty. $ 29 95 
А powerful and dedicated - 


Data Manager. ^" 
<| Softloc 


Designed to store and organize your personal 
The Program Security 


phone listings. The User has complete control 
of 15 category titles and entries. 
System for the Commodore 64 

Set up program security in minutes. 

Lock up your personal, financial or business records. 
3 Types of protection: 


Om. 2 
Жа”? 
9 Options available: 2% ЕЙ: 
. Add a new listing to directory zt | 
. Change a listing now in directory. ; 
62. 


. List full directory. 


LEA) 


р ди > e 7 Divit access c 
List a phone#, giving a name. 2-4, 7 Digit access code 
List all entries in a class. % Encodes program 


. Change the list of catagories. is 
. Write the directory onto a disk. $ 9 
. Read a directory from disk. 


. Exit the program. 


* Modified diskette directory 
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{р Softpeople, Inc. Order Now 
AA 
CV: 


1-800-447-3273 
2042 Marshall Ave. Dealers inquires & 
“Connecting People St. Paul, MN 55104 Special P.O.P. Packages 


With Great Ideas” (612) 644-1551 & Prices available 


by Softpeople, Inc. 


The Inner World 
Of Computers 


Part 5: Small Is Bequtiful 


Tom Prendergast 


In this final installment, an old programming 
trick is combined with the new skills de- 
veloped in the previous four installments. The 
author includes a powerful technique that 
demonstrates how so much can be achieved in 
one of the smallest computers—the VIC-20. 

Кез = SE сИз 


think the VIC-20 is the greatest thing since 

ЕГЕ5 (the tiny ELectronic FingerS that 

toggle the even tinier bit-switches inside 

your computer). It's inexpensive, easy to 
use, and fantastic for games and graphics. 

The VIC does have its limits, though. For one 
thing, the large screen characters and short lines 
(22 characters across) make word processing an 
awkward task. A few lines on a typewritten page 
fill up the VIC screen. 

Another handicap is the small amount of 
memory. You get only 3583 bytes on the unex- 
panded VIC. This is still a couple of thousand 
more bytes than the fabled Univac and ENIAC— 
the big mainframes of 30 and 40 years ago that 
filled up whole buildings and brought on the age 
of computing. But unless you're sentimental about 
such things, you're not going to be happy for 
long with only 3.5K of memory. 

After I'd run out of memory on too many 
programs that I considered very small, I bought a 
Super Expander. Not only does this cartridge 
make it easy to do HIRES (HIgh RESolution 
graphics) by adding commands like DRAW, 
PAINT, POINT, and CIRCLE, but Commodore 
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also adds another ЗК of memory to give you а 
total of 6519 RAM bytes. 


В. despite its shortcomings, the VIC is а роуу- 
erful computer. Big isn't necessarily better, and 
you can't always measure a program's value by 
its length alone. There are few things that you 
can do on expensive machines that you can't do 
on a VIC. It takes some doing, maybe, and it may 
not be as easy, butit can be done. 

If you counted every letter of every word on 
this page, including spaces, you'd find there were 
about 6000. That's 6000 bytes (every letter or space 
uses a byte of memory)—not counting pointers 


ШЕ ИЕ REESE USER ES HESS 
PUT "n Ts ES ES ETE же ES Sp 
IN FG OPPOSITE NAME # 
таш ABCDEFGSHIJKLMNO 
+ = 

+ 3 

H 4 

+ [ITITILTITITIII. 


"Binamite" gives you several options for displaying data. 
Here the information is shown in the table format. 


AARDVARK LTD. 


NOW THE BEST COST LESS 


DUNGEONS OF DEATH - A serious 
role playing game for up to 6 
players. You get a choice of 
race and characters that 
grow from game to game. 
You also get a graphic maze 
and a 15 page manual. 


Available On: TRSBOC 16K EXT., CMD64, VIC20 13K, 
IBMPC, TRS80C 32K, М010 16K 


TAPE $14.95 DISK $19.95 


QUEST - A different kind of 
Graphic Adventure, it is 
played on a computer 
generated mape of Alesia. 
You'll have to build an army 
and feed them through 
combat, bargaining, explo- 
ration of ruins and temples, 
and outright banditry! Takes 
2 - 5 hours to play and is 
different each time. 


Available On: TRS80C 16K, CMD64, VIC20 13K, МС10 
16K, T199 (EXT. BASIC), IBMPC 


TAPE $14.95 DISK $19.95 


WIZARDS TOWER - A fantasy 
game played on a map of 
forests and dungeons - with 
dragons and wizards to kill. 
Similar to QUEST and fun for 
adults, but a little simpler 
and playable for the younger 
set (8 - 60). 


Available On; TRS80C 16K EXT., CMD64, VIC20 13K, 
7199, ІВМРС 


TAPE $14.95 DISK $19.95 


BAG-IT-MAN The ultimate 
arcade game for TRS80C or 
MCD64. This one has three 
Screens full of BAGS OF 
GOLD, CARTS & ELE- 
VATORS TO RIDE IN, MINE 
SHAFTS, and TWO NASTY 
GUARDS. Great sound and 
color and continuous 
excitement. 


Available On: TRS80C 32K, CMD64 


TAPE $19.95 DISK $24.95 


STARFIRE - If you enjoyed 
StarRaiders or StarWars, 
you will love Starfire. It is not 
a copy, but the best shoot- 
em-up, see them in the 
window space game on the 
CMD64 or TRS80C. The 
fantastic graphics will put 
you right in the control room 
as you hyperspace from 
quadrant to quadrant 
fighting the aliens and 
protecting your bases. 


Available On: TRS80C 16K, CMD64 


TAPE $19.95 DISK $24.95 


PYRAMID - ONE OF THE TOUGHEST 
ADVENTURES. Average time 
through the pyramid is 50 - 
70 hours. Clues are 
everywhere and some 
ingenious problems make 
this popular around the 
world. 


Available On: TRS80C 16K, CMD64, MC10 16K, TIMEX, 
ІВМ PC, T199, VIC2 13K 


TAPE $14.95 DISK $19.95 


Authors -AARDVARK pays top dollar for high quality 
programs. Send a copy today for a personal review and 
editorial help. 


AARDVARK offers over 120 original high quality programs. 
Send one dollar for a current catalog and receive a $1.00 
gift certificate good towards your next purchase. 


TO ORDER: Send amount indicated plus $2.00 shipping, per order. Include quantity desired and your preference of tape or disk. 
Be sure to indicate type of system and amount of memory. When using charge card to order by mail, be sure to include expiration date. 


"mus" TE 1-313-669-3110 


PHONE ORDERS ACCEPTED 
8:00 a.m. to 8:00 p.m. E.S.T., MON-FRI 


AARDVARK {ection Software 2352 S. COMMERCE * WALLED LAKE, МІ 48088 • (313) 669-3110 


CMD64 / TRS80C / IBMPC / VIC20. / TI99 


and such—just to store this page їп RAM. That's 
a lot more memory than you have on the unex- 
panded VIC. How can you even begin to process 
that much data? 

You could feed the data in from tape a few 
bytes at a time, I suppose, process it, and then 
pull in some more data. But that would take a lot 
of time and tape. You'd also be using up most of 
your memory for tape handling and "overhead." 
So what can you do? 

For an answer, let's look back at the small 
memories on the early mainframes. One reason 
for those small memories was the cost —something 
like $10 a bit (not a byte, a bit). This meant it often 
was cheaper to pay people to file things manually 
rather than to use expensive computer memory 
to store it. So, early on, a technique called bit in- 
dexing was developed, in which one bit did the 
work of a byte—or even hundreds of bytes. 

Computers have added a lot of memory since 
then, but the basic way a computer works hasn't 
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Creating a data table with “Віпатйе.” 


changed. That's why this old trick works as well 
today as it did then. 


В. indexing is а kind of shorthand, with each 
bit representing some unit of information, like a 
name on a list. If the bit is turned on, that name is 
on the list. And since we already have our list on 
paper, why not keep it on that same piece of paper 
and use a form of bit indexing to process it on the 
VIC. By doing this, we can handle the equivalent 
of thousands of bytes of data without eating up 
precious memory. 

This isn't a big deal so long as the data we 
want to process is in an organized list already and 
we just have to write some numbers beside the 
items on the list. 

Let's say you're in the mail order business 
and want to send catalogs or a special mailing to 
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customers, but you want to rank them by the 
amount of money spent with you, by credit rating, 
your best customers. You have a list of all your 
and so on. You probably have all the information 
you need in the customer file, along with the 
amounts billed and to be collected (accounts re- 
ceivable). Of course, you don’t want to disturb 
that file, but going through it can tell you what 
items your customers usually order, their fre- 
quency of ordering, and how fast they pay or 
don’t pay. 

The files are probably in alphabetical order. 
Later on, you can arrange the list for mailing by 
zip code or some other way, but to demonstrate 
the program we're using, “Binamite,” let's just 
take the first 15 names out of the file, write them 
on a sheet of paper, and number them. (Remem- 
ber, by using paper instead of the computer, we 
save a byte for every letter.) 

. Mary Contrary 
. Mary Lamb 

. Little Boy Blue 
. Ms Muffit 
Fifth Name 
Sixth Name 
Seventh Name 


NOG PON 


and so on until we have 14 names. 

Next, we want to know the type of items 
they've bought, so we'll know what to put in our 
catalog. Let's call these items "attributes" and 
assign letters of the alphabet as labels, like this: 

A) Sports Clothing 

B) Bats and Balls 

C) Caps 

D) Down-Filled Jackets 

E) Extra-Large Sizes 

F) Feminine Finery 

G) 10-Gallon Hats 

H) Helmets 

I) Insulated Boots 

J) Junior Sizes 

K) Skis 

L) Lambswool Jackets 

M) Muffs 

N) Notions 

O) Ozoneware 


These can be any length since we're keeping them 
on paper instead of in VIC memory. They don't 
have to match the letters alphabetically, either: B 
doesn't have to stand for Bats and Balls, or C for 
Caps. It just makes it easier to remember what 
letters we've assigned to what items when we ask 
Binamite later to match them against the names 
on the list. 

Now, with all the paperwork out of the way, 
let's build the program up bit by bit. 


А. you might ехресї from the name, Binamite 
works on a binary system. You may remember a 
short program in last month's installment that 


А Basket Full of Software Values 
at Chick-Size Prices? 
Eggs-Actly! 


WORD 
PROCESSING 


versatility. programs. 


Quality Software Ideal for the Commodore 64™ and VIC 20™ 


WORD PROCESSING — TOTL.TEXT produces апа field definitions, multiple options, user de- 
documents, forms and letters with speed and fined report formulas. Integrates with other TOTL 


SPELLING CHECKER—TOTL.SPELLER—acom- BUSINESS ACCOUNTING — TOTL.BUSINESS 


piled spelling-checker with built-in dic- = 
tionary that quickly proofreads and 

suggests correct spelling. 

MAILING LIST AND LABEL — TOTL. 


handles A/R, A/P, inventory and sales re- 
ports and other record-keeping tasks 

TIME MANAGEMENT — TOTL TIME 
MANAGER plans schedules and ana- 


LABEL organizes mailing lists, collec- SOFTWARE, INC. lyzes events in numerous ways 
tion catalogs, menus, all listing and ETE TO KEYWORD CROSS REFERENCE — 


sorting. Merges with TOTL.TEXT. a E 


RESEARCH ASSISTANT—a great tool 


DATABASE MANAGEMENT — TOTL. Walnut Creek, СА 94596 for automated indexing and cross ref- 


INFOMASTER features dynamic record (415) 943-7877 


erence system 


"COMMODORE 64 and VIC 20 are trademarks of Commodore Business Machines, Inc. 


WRITE FOR FREE Сс 
CATALOG OF VIC 20 
and C64 PRODUCTS 


ШШ i M 
" 


4 


ИШ [С ' 


DIC 


ORDERS ому ЕСИНЕ 1 7 Меола лорд 


Information and іп Ohio 1-216-758-0009 


1541 Disk Drive $219 


Sat.-10am-5 pm 


530 Datasette....... $ 59 1600 Modem..... 
1526 Printer 100 cps.....$289 1520 Printer/Plotte 


COMMODORE 64 $219 


1525 Printer 30 cp: 


SOFTWARE 1650 Auto Modem 


HARDWARE 
PROGRAMMING AIDS 
OPERATIONAL AIDS 


SUPPLIES 


MEDIA 
BOOKS 


(COMPATIBLE 
YSTEMS 


[NCORPORATED 


Assembler/Monitor. 
Super Expander. 


Easy Script... 
Easy Spell... 
SPREADSHEETS 

Calc Result... 

Calc Result Easy 

Intro to BASIC. Multiplan.. 
Visible Solar System. 
Lazarian 

Pinball Spectacular. 
ZORK I, II, II 
Suspended. 

Easy Calc. 

Easy Finance 1,11,111,1V, 


WORD PROCESSING 
Word Pro 3* with speller 


Mirage Concepts 


DATA BASE MANAGERS 
Delphi's Oracle... $109 
Mirage Concepts. $ 79 
PROGRAM GENERATORS 
The Last On: 

Code writer... 


The Manager.. 
General Ledger. 
Accounts Receivabl 
Accounts Payable 
Payroll.. 

Inventory 


جا ہا ہا ما ما ما ما ہا bh bene eben‏ 


HOME FINANCES 
Home Accountant.. 


MONITORS 

BMC green screen 
BMC amber screen. 
BMC composite coloi 


PRINTERS 

Gemini 10X with Cardco 
interface 

Gemini 15X 


SPECIALS 
Koala Pad Touch Tablet 


Smart 64 Terminal. 
Micro Pak Paper.. 
Disk File 70. 


We carry a complete liny of Quality Commodore related products including those by: Timeworks, Spinnaker, Epyx, Sierra, 
HES and Cardco. Even if not listed, we probably have it, at the lowest price possible. SEND FOR OUR CATALOGI 
MOST ORDERS SHIPPED WITHIN 48 HOURS! All prices include cash discount. VISA/MC orders accepted - add 3.5%. 
C.O.D. orders add $5.00. For quickest delivery send bank check or money order. All sales are final - defective merchan- 
dise exchanged for same product only. Shipping add 3% ($2.50 minimum). Ohio customers add 5.5% sales tax. Prices & 


j lability subject to change. 1309 Boardman- Poland Rd., Poland, ОН 44514 


P.O. Box 2070 * Dept. G 
Saratoga, CA 95070 
(408) 255-2024 


converted binary numbers (1's апа 0/5) to decimal. 
That program was an exercise for this month’s 
program, because we're using basically the same 
algorithm for Binamite. 

In last month’s program, we input the binary 
digits in that conversion program as a string in- 
stead of a number. Ordinarily, the computer can’t 
use a string to do arithmetic because the digits are 
seen as characters, not as numbers. 

However, if you ask for the VALue оға string, 
the computer will start from the left and convert 
the string digits to a number. (If it finds a letter or 
a graphic that’s not a number, it stops.) Suppose 
you have a string like this: 


B$ =“101B” 


If you ask the computer for the VALue of B$, you'll 
get this: 

? VAL(B$) 

101 [the letter B is ignored] 

We still have to convert the binary, because the 
computer treats that 101 as a decimal number 101, 
not as a binary 5. So we use the MID$ function to 
extract one digit at a time and multiply the VALue 
of the 1 or 0 by its power of two. All of the place 
values are then added together to get the decimal 
equivalent of the binary string, B$: 

MID$(B$,1,1) = “1” 

MID$(B$,2,1) = “0” 

MID$(B$,3,1) = “17 

Place power: 212 211 210 

B$: 1 0 1 

1*2 2=4 (1 multiplied by the second power of 2) 

0*211=0 (0 multiplied by the first power of 2) 

1*210—1 (1 multiplied by the zero power of 2) 

4+0+1=5 
In the program, we use а FOR/NEXT loop for 
MID$ manipulation and multiplication of the 
powers. 


T. give you some hands-on experience this 
month, we will take you through the creation of a 
program step by step. So we're going to type in 
just the bare bones of the program at first, and 
explain each line's function as we go. Some of 
these lines will be out of order as we type them 
in, but the VIC will automatically rearrange them 
in the proper numeric order. 

Here's the first line to type in: 


110 PRINT" {RVS}NAME{ RVS }ABCDEFGHIJKLMNO" 


The letters ABCD...up to O identify the columns 
for the “alpha cells” (rows of little boxes), which 
correspond to our list of attributes. By processing 
these cells instead of long data strings, Binamite 
saves you lots of memory. Each name has a row 
of alpha cells, and when we INPUT a dot—one 
byte—into a cell, we attach that column’s attribute 
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A, or B, or whatever, to the name. (Rows read 
across, columns read down.) The arrangement 
will become clear after we've typed in the neces- 
sary lines for a trial run. 

Line 120 is where we INPUT the dots (periods) 
to fill the alpha cells. We skip a cell, leaving it 
empty (no attribute), with the space bar. We can 
also delete a dot with the delete key, or go back 
and fill in a dot with the cursor left key. 

Line 120 is probably the trickiest line in the 
whole program because we have to first print a 
row of alpha cells (using 15 shifted L graphics), 
then bring the cursor left 17 places so that it will 
be flashing and ready for INPUT at the first alpha 
cell (Column A). 


120 INPUT" #{3 SPACES}{RVS}LLLLLLLLLLLLLL 
L{17 LEFT}";B$:L=LEN (B$ 


Now we get to the real meat of the program— 
converting the string of dots we've just INPUT, 
B$, to binary, then to a decimal VALue we can 
AND later: 


130 XP-L-1:FOR I-1 TO L:DMS=MID$(BS$,I,1): 
IF DM$ > "1"ТНЕМ PRINT "(UP]":DM$-""; 
GOTO 120 


Note that we've created a temporary holding string, 
DMS, in line 130. This makes DM$ the equivalent 
of MID$(B$,I,1)—that is, one digit of binary string 
B$, in place I, whatever is at the moment—and 
saves us line space because we don't have to keep 
typing "MID$(BS$,I, 1)" all the time. That's DM$'s 
only function—a temporary string. 

If you input anything but a period or a space, 
the IF throws you back to INPUT (line 120). 


140 IF DM$-"." THEN DMS="1" 


Line 140 converts a dot (period) to the binary 
digit 1. Skipping a cell, or wiping out a dot (with 
the space bar or delete key), gives the empty space 
a value of zero, the binary digit 0. 


150 D=D+(VAL(DMS$))*2TXP:XP=XP-1:NEXT 


Line 150 multiplies each binary digit by the 
power of its place, then adds all the place values 
together for a decimal value given to D. 

When the FOR/NEXT loop is completed, we 
GOSUB 300 in line 160 to deposit the row value 
into an array, then line 170 sends us back to line 
120 to process another row: 


160 GOSUB 390:T-T41 

170 PRINT" {UP}"TAB(2)T:B$="":D=6:IFT<TT T 
HEN 126 

When we've completed our input to the alpha 

cells—assigning the attributes—line 240 will give 

us a number which we jot down beside each name 

on our list. With this encoded number, later we 

can analyze our list of names almost any way we 

want. 


Just when you tho ТА 

was needed to wade throug! 

federal tax preparation, along comes UNCLE 
UNCLE! takes your hand and guides you through 
the tax manuals, asking just enough questions 
to translate the information for up to 28 forms 
and schedules. UNCLE! has a good memory; 
just give your name and SSN once and UNCLE! 
will make sure they get on every required form. 
Plus, if you want to noodle with numbers, 
UNCLE! has a calculator-type scratch pad. You 
can't fool your UNCLEN if you enter an error, it 
will be flagged. When you're through conversing 
with UNCLE! on your Commodore 64 (single 
drive), simply feed the forms and schedules 
into a 16-17 cpi printer and UNCLE! will prepare 
every one of them. How much to put UNCLE! 
in your Commodore? $64! 


VARANGER Computing: 180 Grand Avenue, 
Suite 900, Oakland, CA 94612 
Telephone (415) 482-3861 


Calif. Res. add 6('/2)% Sales Tax. Visa/MasterCard accepted. 


© His monty 
^ TO Аат 


t то oare 


5r 
Wiel are he 1 NOTES PAYABLE 


When it's on, it’s on. No software to mess around 
with. This high quality, low-profile CP Numeric 
Keypad is the one for your Commodore 64 and 
VIC-20. It is guaranteed to be 100% compatible 
with all the software you have, now and forever, in 


= Computer Place 


any format. The Keypad easily connects in parallel 
with the existing keyboard connector. Now you 
can zip through your numeric work sheet, input 
your numbers and figures comfortably, quickly, 
and more easily than ever before at only $69.95. 


23914 Crenshaw Blvd. 
Torrance, CA 90505 


. for Business, Education, and the Home (213) 325-4754 


Dealer inquiries welcome. 


Commodore 64 and VIC-20 are trademarks of Commodore Business Machines, Inc. 


240 FOR I=Ø TO TT:PRINT"#"I+1"{3 SPACES)" umn could be a range of wholesale prices from 
D(I):NEXT $1 to $5, the B column a range from $6 to $10, and 

Я ME А а ` so on. 

nere ERE пе DEN noy Or you could use Binamite to keep track of 

MIO OF ME PhO олан SepLIortvpng nus the books in your library. The name column would 

10; be the title of the book, and the letter column the 


10 PRINT CHR$(147):TT=14:DIM D(TT),B$(TT) book's location—on shelves A, B, C, in bookcase 


But don’t forget our GOSUB. Notice that we've D downstairs. —— à 

got to fence off our GOSUB routine from the rest See program listing on page 163. @ 
of the program so that the VIC won't run into it 
and generate an UNDEF’D STATEMENT ERROR. 
So, actually, line 260, with its END, is part of 
GOSUB 300: 


260 END:REM*SAVE DATA* COOL YOUR DISC DRIVE 
300 BS(T)=B$:D(T)=D h _ with the “Е2500” cooling fan for your 
310 IF LEN(B$(T))<15 THEN BS(T)=LEFTS(" Commodore 1540/1541 disc drive 

{15 SPACES}",15-LEN(BS$(T)))+BS$(T) Ў Protect your valuable programs from 
32Ø RETURN excessive heat buildup 


A must for every disc drive owner 


* Powerful fan cools critical components e Helps prevent disc & 
drive problems due to excessive heat buildup e Quiet operation 


Now let's LIST what we've done and check 
the screen for obvious errors. If you don't spot 


any bugs, let's do a RUN. e High volume air output e Low profile e Easy installation-no tools 
Does the VIC display look anything like the required e 90-day free replacement warranty e only $54.95 U.S. 
h 110? I£ it d "t LIST Hi 120 and ($69.95 Can). * B.C. residents add 7% sales tax. 
photo on page 110? If it doesn't, ine x an 1540 and 1541 are registered trademarks of Commodore Business Machines Inc. 
check all the cursor moves to make sure you've To order your F2500 disc drive cooling fan please send your 
got them in the right place. cheque or money order for $54.95 plus $2 for shipping to: 
3 ie 5 Besco Products 
You can use this stripped-down version to 203 - 8060 Granville Ave., Richmond, B.C. Canada V6Y 1Р4 
practice your dot input. Just be sure you're at the Telephone (604) 278-5115 DEALER INQUIRIES INVITED 


very end of the line—but not past column O— 
before you hit RETURN. If you don't, you'll land 


back at cell A to try again. SATISFACTION GUARANTEED OR MONEY BACK 

Other than that, Binamite is easy to work, 1983 TAX RETURN HELPER 
once you're familiar with it. 

Fast and easy income tax preparation. 
: а CMT 040 and Schedules A,B,C,D,E 

Wren you're comfortable with your trial run, BE Ee CaS анада E аа 

1 1 Works like a spreadsheet - all the lines affected by a change are in- 
type in the complete program. Lines 10 and 240 M EEUU 
are different, but you've got the hard part out of Form 1040 and Schedule A are automatically corelated 
the way automatis be CONSO Tom built-in tax tables and schedules. 

: orms can be printed or saved. 
The beauty of Binamite is its flexibility. You ES а SE сіз 
1 1 1 D VIC 20 (16K RAM) or C64 $33 

can plug almost any kind of data into it to produce E r Mu M сар а 
various graphic relationships between persons KSOFT CO 
and items. For instance, if we want to find out -— 845 WELLNER RD., NAPERVILLE, IL 60540, (312) 961-1250 ев 
the most popular item among our list of best cus- Dealer inquiries welcome FS 


tomers, we can quickly spot it by noting the 
column with the most dots. 

Binamite isn’t very impressive right now be- 
cause we're only processing a list of 14 names. 
After you get the hang of it, though, you can easily 


FREE CATALOG! 
process hundreds of items—as many strings as 


you can squeeze into VIC memory. (I've been 


able to process as many as500 items with the Super 64 SHO ШЕР 


Expander's extra ЭК of memory, Бу abbreviating 


the names to five characters plus the encoded Your complete source for C-64 and Vic software! 

number, making a maximum of ten characters You've never seen anything like it!! 

per string.) USE READER'S SERVICE CARD, OR WRITE DIRECTLY TO: 
And you're not limited to names for your list 764 SHOPPER 


processing, either. You could use the name col- 
umn for items and the attitribute columns for a 
range of prices, for instance. The A attribute col- 
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BOX 187, FRASER, MI. 48026 


POWER BASIC 


ASCII/POKE Printer 
For VIC And 64 


Todd Heimarck, Assistant Editor 


This month's "Power BASIC"—a continuing 
series of helpful utilities and routines— 
provides a short machine language routine 
that automatically calculates ASCII and POKE 
values. It's a handy utility you can use while 
writing a BASIC program. 


Reference Tables 

Chances are, PRINTing to the screen was one of 
the first things you learned to do in BASIC. You 
probably also learned how to control where the 
computer prints by putting cursor commands 
within strings or by using SPC and TAB com- 
mands. The PRINT command is common, primar- 
ily because it is so easy to use. But in certain situ- 
ations, you may need to find out a character's 
ASCII number. And sometimes it is quicker to, 
simply POKE a character onto the screen. 

But before you can POKE, you have to know 
the character number. Let's put a row of hearts at 
the top of the screen. So, we need to POKE a bunch 
of 81s. Wait, those are solid circles. What's the 
number for hearts? I know that list is somewhere 
in this book. 

If you use POKEs or ASCII values in pro- 
gramming, you know how annoying it is to flip 
back and forth through the reference book, losing 
time and patience. Even worse, you could lose 
the book and end up typing the character and 
PEEKing screen memory to get the POKE value. 


Let The Computer Do The Work 


Your computer already knows the POKE values 
and ASCII numbers, so why not let it do the 
work? 

This short machine language program, 
^ ASCII/POKE Printer," does not use any BASIC 
memory. Its 52 bytes remain in the cassette buffer, 
ready to convert letters and graphics characters to 


POKE and ASCII numbers whenever you want. 

Note that if you write a program that POKEs 
any of the address locations of the cassette buffer 
(828-1019), you may lose ASCII/POKE Printer. 
Also, if you use a cassette player for SAVEs, 
LOADS, or tape files, you will erase the machine 
language program. Fortunately, it is entirely re- 
locatable, so if you want to use the cassette buffer, 
you can change line 10 to move it to another part 
of memory. On the 64, it is usually safe to use any 
of the memory locations from 49152 to 53247. If 
you have a VIC-20, you will have to protect part 
of BASIC RAM (52 bytes worth) with POKEs to 
51, 52, 55, and 56. 


LOADing And Using 


The Program 
If you have a 64, type in Program 1. If you have a 
VIC, use Program 2, but if your VIC has 8K or 
more of expansion memory, change line 23 to 
read: 
23 DATA169,0,133,212,174,90,16,32,205,221 
,232,208,204 
Make sure the DATA statements are exactly as 
printed. SAVE it to tape or disk and VERIFY (if 
you have a cassette drive). RUN the program and 
type NEW. The program is now in your cassette 
buffer. BASIC memory was cleared when you 
typed NEW, but it did not touch the cassette 
buffer. 

Anytime you want to use ASCII/POKE Printer, 
type SYS 828. The computer will wait for you to 
type a character and then display that character 
in the upper-left corner with the ASCII value to 
the right and the POKE value below. Type another 
character and you get two new values. 

To exit (back to BASIC), hold down SHIFT and 
press RETURN. This returns you to your program. 
SYS 828 will send you back to ASCII/POKE Printer, 
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and so on. You сап toggle back and forth as the 
need arises. 


Special Cases 


There are some ASCII numbers that have no 
equivalent POKE. For example, adding CHR$(13) 
to a string will force a RETURN after the string is 
printed. But ASCII 13 cannot be POKEd to the 
screen (what would a RETURN look like?). ASCII/ 
POKE Printer will give you the correct ASCII num- 
bers, but for certain characters, like RETURN, it 
will print a blank space and list a POKE of 32 
(which is the number for a blank space). In the 
case of function keys, CLR/HOME, INST/DEL, 
and color commands, it will print a reverse video 
character, as if in quote mode, and the correct 
А5СП number. But the POKE number will be 
wrong. Keys that perform a function—clearing 
the screen, for example—are not characters that 
can be POKEd to the screen. 

Also note that you cannot get values for in- 
verse video characters, which do not have separate 
ASCII numbers. To program a reverse character, 
precede it with a CHR$(18). To POKE an inverse 
video character, add 128 to the POKE value of the 
regular character. 

This machine language utility will be most 
helpful when you are writing BASIC programs. 
By letting the computer tell you ASCII and POKE 


values, you can really save time. The program 
was written to be short and simple, but if you are 
familiar with machine language, you could modify 
it to do much more. 


Program 1: 


ASCII/POKE Printer—64 Version 


1@ FORJ=828T0879: READK: POKEJ, K:NEXT 

15 READY: IFY<>999THENSTOP " 

20 DATA32, 228, 255, 248, 251,179, 201,141, 208 
,1,96,169,147 

21 DATA32,210,255,169,255,133,212,138,32, 

210,255,169,32 

DATA32,210,255,169,90,32,205,189,169,13 

, 32,210,255 

23 DATA169,9,133,212,174,9,4, 32, 205,189,2 

32,208, 204 

DATA999 


22 


25 


Program 2: 


ASCII/POKE Printer—VIC Version 


10 FORJ=828T0879: READK: POKEJ, K:NEXT 
15 READY: IFY<>999THENSTOP 

20 DATA32, 228, 255, 248, 251,179, 201,141, 208 
,1,96,169,147 

DATA32, 219, 255,169, 255,133, 212,138, 32, 
218,255,169, 32 

DATA32, 219, 255, 169,G, 32, 205, 221,169, 13 
132,210,255 


21 


22 


23 DATA169,Ø,133,212,174,Ø,3Ø,32,2Ø5,221, 
232,208,204 
25 DATA999 а) 


wet 
pr me 
NS 
\ 


nine 
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Ж 
т (415 


PROSSS 


The Professional Systems People And 


[MILE [е8 00] IW[OJRIX) 


Present Products From 


= commodore 


And 
The Software That Makes Them Work! 


SOFTWARE These are sample unit prices. 


We carry support items, cables, games... 
SBSys 


C-64, 8032, 8096 & B-Series 

THE SMALL BUSINESS SYSTEM 
Available for 1541, 8050 and hard disk 
drives. GL, AP, AR, INV. and payroll 
as low as $99.00 each! Call for specific 
pricing. 


PERSYS 

VIC 20, C-64, 8032, 8096 & B-Series 
THE PERSONAL FINANCIAL 
SYSTEM 

A complete financial package for home 
and small business, beginning at $69.00 
on tape. 


VERTICAL PACKAGES 
INCLUDE: 


LEGISYS 

8032, 8096 & B-Series. 

The total legal office information, 
accounting and tickler system. 


LOADSYS 

8032, 8096 & B-Series. 

The total truck brokerage accounting 
system. Call for free intro consulting. 


Dealer inquiries invited. 


WE HAVE IT! 
CBM PRODUCTS 


8032 Computer $ 619.00 
8050 Disk Drive 979.00 
8250 Disk Drive 1279.00 
9060 Hard Disk 1979.00 
8023 Printer 529.00 
6400 Printer 1399.00 


C-64 STUFF 


C-64 Computer $219.00 
1541 Disk Drive 249.00 
1701 Monitor 249.00 
1526 Printer 339.00 
1600 Modem 69.00 


Call Toll-Free by dialing: 
Outside Texas: 


1-800-221-WORX 


Inside Texas: 


1-800-692-4265 
wait for beep, then dial 008-3378, 
wait for tone and dial 993, 
Lubbock 797-2623, 
Ft. Worth: 817/589-2622 
807 Melborne Hurst, Tx. 76053 


ІЛІШІМІЗІПШІЛІГЛІЛІЛ 


4210 D 50th 797-2623 Lubbock, TX 79413 


VISA & MasterCard. Add 3% Surcharge. 
Shipping paid on prepaid orders. 


Prices subject to change without notice 


Dynamic SAVE | 
For VIC And 64 


Stephen S. Leven 


These short programs, for the VIC or 64, can 
take the tedium out of frequently SAVEing 
and VERIFYing your BASIC programs. For 
disk and tape users. 

aaa 


When you are typing in a long program, it’s a 
good idea to SAVE portions of it frequently, and 
to make backup copies. But it is tedious to con- 
tinually type SAVE "PROGRAM NAME”, wait 
until the program is saved, retype SAVE “РКО- 
GRAM МАМЕ”, then wait again. "Dynamic 
SAVE” will do this work for you, whether you 
use tape or disk, using a technique known as the 
dynamic keyboard. 


Why You Should SAVE 
Periodically 


A sudden loss of power—during a thunderstorm 
or when you accidentally knock the power cord 
from the wall socket—can instantly wipe out all 
your hours of hard work. Even something as 
simple as turning on the dishwasher or garbage 
disposal can cause a voltage drop that garbles the 
program in memory. 

These four bits of advice will minimize the 
consequences of a sudden power failure or elec- 
trical glitch: 


1. SAVE your program every 15 minutes or 
so, or whenever the changes you have made 
will cause you a serious setback if they are 
lost. 
2. If you use tape, SAVE two copies of the 
program, one after the other, to reduce the 
chance of losing the program due to accidental 
damage to one section of the tape. 
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3. Use two tapes (or disks). For tape, first 
SAVE on one tape, then SAVE on a second. 
The third time you SAVE, use the first tape 
again. Continue to alternate tapes, so that if 
something happens during the SAVE, or 
your tape is damaged, you still have your 
previous version on the other tape. (Follow 
this same procedure for disk backup.) 


4. Finally, when you have finished debugging 
your program and it runs perfectly, make 
one or two backup copies. It is a good idea to 
keep an archive tape (or disk) for emergencies. 
If your working copy of the program fails, 
you can retrieve your program from the 
archive tape (or disk). 


The Dynamic Keyboard 
Technique 

The term dynamic keyboard basically means that 
you have your program display certain screen 
instructions which are executed after the program 
ends. You do this by inserting program lines which 
CLEAR the screen and PRINT the instructions 

on the screen just before the END line, and 

then load the keyboard buffer with the cursor 
controls and RETURNS necessary to execute those 
instructions. 

When the program comes to the END in- 
struction, it goes into immediate mode. The first 
thing it checks is the keyboard buffer, which con- 
tains your RETURNS and cursor controls. It then 
executes them just as if you were typing them in. 
As the cursor moves across the commands printed 
on the screen, they are automatically executed. 


Tape And Disk Versions 


Program 1 is for tape users, and Program 2 for 


( = commodore 


VIC20 CALL 


1520 Color Printer/Plotter ........ 
M-801 Dot Matrix/Parallel.. 


1 


Y 
SS 
VISA | 


ECOMPUTER 


1530 Datasette .......... 
1541 Single Disk Drive. 
1600 VIC Modem 
1610 VIC Term 40 .. 
1650 AD/AA Modem ..... 
1702 14" Color Monitor 
1311 Joystick (each) 
1312 Paddles... 

1110 VIC 8K 

1111 VIC 16K..... 

1011 RS-232 Interface 
1211 Super Expander 


commodore 

CBM 64 Reference Guide .. 
C-64 DISKS 

EasyCalc.... 
EasyFinance 1, II, III. IV. 
EasyMail 
EasyScript 
Word/Name Machine . 
EasySpell... 
Accounts Receivable . 
Accounts Payable 
General Ledger. 
Assembler 
Logo 
Pilot. d 
Pet Emulator . 
Screen Editor 
Music Machine. 
Music Composer. 

VIC 20 CARTRIDGES & DISKS 
Gortek & the Micro Chips(C)...$19.00 
Super Slot (R) $14.00 
Super Alien (В). $14.00 
Jupiter Lander (R) $14.00 
Radar Rat Васе (В). $14.00 
Count Adventure (В). $21.00 
Pinball Spectacular (R) $19.00 
VIC Reference Guide $15.00 

ARTWORX 
C-64/VIC 20 CASSETTES 
Bridge 3.0 $15.00 
Teacher's Pet. $12.00 
BRODERBUND 
VIC 20 CASSETTES 
Martian Raid Ё 
Shark Тгар.. $16.00 
Multisound Synthesizer $16.00 
COMMERCIAL DATA 
VIC 20 CASSETTES 
Motor Mouse . 


. 518.00 


. 565.00 
.$19.00 
.$19.00 
$39.00 
.$19.00 
$19.00 
$39.00 
.$39.00 
.$39.00 
$19.00 


$16.00 


$23.00 
$23.00 
. 523.00 
С-64 CASSETTES 


Road Toad $24.00 


AIL ORDERS 


$169.00 

-- $219.00 
. $69.00 

- $249.00 


. $49.00 
- $89.00 


.$42.00 
. $69.00 


COMMODORE 


PRINTERS 
Epson (MX100, RX80, FX80, FX100) 
Okidata (82, 83, 84, 92, 93).......... 


Star Gemini 10X.. 5 
Star Gemini Delta 10.. 
Smith Corona TP-2 
C.Itoh Prowriter 8510P 
C.Itoh Gorilla... 


SD-1 Disk Drive 
Light Pen 


3 Slot VIC Expansion Interface 
6 Slot Expansion Interface. 


Casssette Interface.... 


Parallel Printer Interface ... 


Parallel Printer Interface 


SOFTWARE 


CREATIVE SOFTWARE 

C-64 CASSETTES 
Home Inventory ....... 
Household Finance 

C-64 CARTRIDGES 
Trashman 

C-64 DISKS 

Home Inventory .. 
Household Finance 

VIC 20 CASSETTES 
Home Inventory 
Household Finance... 

VIC 20 CARTRIDGES 
Astro Blitz 5 
Black Hole 
Trashman n 
Choplifter... 


DYNATECH 
C-64 DISK 
Codewriter......... 


ЕРҮХ 
VIC 20 CASSETTES 
Ricochet.......... 4 
Sword of Fargoal. 
Rescue at Rigel .. 


$32.00 
$24.00 
$24.00 


QUICK BROWN FOX 
C-64/VIC 20 CARTRIDGE 
Word Processor.. - $49.00 


UM! 
VIC 20 CARTRIDGES 
Meteor Run. 
Alien Blitz .. 
VIC 20 CASSETTES 
Cloud Burst... bn 
Video Verman 


DUST COVERS 
C-64/VIC 20 Cover. 


..$9.99 Spider City. 


ATARISOFT 
C-64/VIC 20 Cartridges 
Centipede .$37.99 
PacMan... .$37.99 
Donkey Kong .$37.99 
Dig биз... .$37.99 
Defender . .$37.99 
Robotron . .$37.99 
Stargate .. . $37.99 


VIC 20 CARTRIDGES 
h 532.00 


. $29.00 
.. $29.00 
.$29.00 
.$21.00 
.$29.00 


Aggressor .... 
Synthesound 
Shamus.. 

Protector . ...$29.00 
Turtle Graphics . $29.00 


C-64 CARTRIDGES 
-$29.00 


.535.00 


МІС 20 CASSETTES 
Alien Panic 
Race Fun-Drag Race 
The Catup .. 
Exterminator . 
C-64 CASSETTE 
3-D Man. 


.$10.00 
.$16.00 
.$10.00 
.$19.00 
. $16.00 
Typo (20/64)... $29.00 
RAINBOW 
C-64 DISKS 
Personal Finance . 
Writers Assistant 
Spreadsheet Assistant 
QUANTUM 
40/80 Column Video Board...$95.00 
40/80 Col. Video Board (16K)...$179.00 
SIRIUS 
VIC 20 CARTRIDGES 
Deadly Duek .. 


. $48.00 
. $95.00 
$95.00 


$21.00 
$29.00 


. $379.00 
.. $209.00 


$349.00 


..$32.00 
.. $32.00 
. $79.00 

$29.00 
. $49.00 


w/Graphics $69.00 


MICROSPEC 
VIC 20 CASSETTES 

Spelling Bee- 

Grades 2.3.4. 5. or 6. 

Math Drill ....... 

Portfolio Manager 

Data Manager .. 


VIC 20 DISKS 
General Ledger... 
Mailing List Manager 
Inventory Package 
Payroll . 
Data Base 

C-64 CASSETTES 

Black Box 
Color Sketch 
Match Maker .. 

C-64 DISKS 
Mailing List Manager . 
Inventory Package 
General Ledger 
Payroll ..... 
Data Base 
CalcResult .. 
Black Box.. 
Color Sketch 
Match Maker .... 


TRONIX 
VIC 20 CASSETTES 
Galactic Blitz 
Swarm .. 
Sidewinder 
VICTORY 
C-64/VIC 20 CASSETTES 
Adventure Рак (3 games) ...$12.00 
Adventure Pak (3 games). ..$12.00 
Annihilation . . $16.00 
Grave Robber 1811.00 
Kongo Kong. -516.00 
тгек.... .$11.00 
PROFESSIONAL 
SOFTWARE 
Word Pro 64 


$45.00 
$79.00 
.$79.00 
.$79.00 
. $69.00 
$139.00 
. $16.00 
. $22.00 
. $20.00 


.$19.95 
.$22.95 
.$22.95 


We carry a selection from the above manufacturers plus... 
Synapse, Thorn, InfoCom, Onslow, Practicalc, Spinnaker & Timeworks. 


4 Order Status %: 588-5654 


WESTS 


{-8ОО-.6%8.35511 


In NV call (702)588-5654, Dept. 0313 
P.O. Box 6689, Stateline, NV 89449 


-CANADA- 


1-800-268-4559 f.800-255-895O 


In Toronto call (416)828-0866, Dept. 0313 
2505 Dunwin Ct.,Unit 1B, 
Mississauga, Ontario, Canada LSLITI 
1 E Order Status #: 828-0866 
No risk, no deposit on C.O.D. orders. Pre-paid orders receive free shipping within the UPS Continental United States 
checks or money orders. Add 396 (minimum $5.00) sh 


In PA 


а and handling on all C.O.D. and credit card orders. Larger shipments may req: 


477 E. Third St. Williamsport, PA 17701 
Order Status #: 327-9576 
Customer Service Number: 327-1450 
ing period for certified 
re additional 


EAST= 


call (717)327-9575, Dept. 0313 
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M 


charges. NV and PA residents add sales tax. All items subject to availability and price change. We stock manufacturer's and third party software for mostall 
computcrs on the market. Call today for our new catalog. 


CANADIAN ORDERS: All prices are subject to shipping, tax and currency exchanoe fluctuations. Call for exact pricing in Canada. 


disk users. It is а good idea to LOAD Dynamic 
SAVE before you start working on your program. 
You can change the line numbers if you wish, 
but, by using the line numbers I've used, you can 
easily remember that RUN 60000 will perform 
your SAVE. 

Program 1 SAVES two consecutive copies of 
your program, including Dynamic SAVE, to tape. 
When the SAVES are completed, the screen will 
be set up to perform a VERIFY of each copy. Just 
rewind the tape and press RETURN. 

Line 60010 defines the character for the quote 
mark, since using the CHR$ equivalent is the best 
way to PRINT it on the screen. This line also de- 
fines the name of the program to be SAVEd, which 
is stored in the variable N$. Change the contents 
of N$ to the name of the program you wish to save. 

Line 60019 is a REM line, reminding you to 
use either line 60020 or line 60021, depending on 
whether you have a VIC or a 64. These two lines 
set the screen and border to their default colors, 
and define the character colors for use in line 
60030. These colors are selected so that program 
operation on the screen is invisible. It's a good 
way to avoid screen clutter. If you want to see 
what the computer is doing, simply change the 
value of C1$ to that of C2$ in line 60020 or 60021. 

Line 60030 changes the character color to that 
of the screen color by printing C1$. Then it clears 
the screen and displays the following message: 


FORO = 1TO2:SAVE"DYNAMIC SAVE”:NEXT 


After printing, the character color is restored 
to normal by printing C2$. 

Line 60040 loads the keyboard buffer with a 
HOME (ASCII 19) and RETURN (ASCII 13), just 
as though they had been typed in. 

Line 60050 POKEs the following characters to 
the keyboard buffer: V, SHIFTed E, a colon, 
another V, and another SHIFTed E. (V-SHIFT-E is 
the Commodore abbreviation for the BASIC com- 
mand VERIFY.) 

The keyboard buffer (memory locations 631— 
640) can be loaded with up to ten characters. The 
first character to be executed should be POKEd 
into location 631, the second into location 632, 
and so on. (The character codes may be found in 
the appendices of VIC-20 User's Manual, VIC-20 
Programmer's Reference Guide, Commodore 64 User's 
Manual, or Commodore 64 Programmer's Reference 
Guide.) Location 198 must be POKEd with the 
number of characters in the keyboard buffer, in 
this case seven. The END statement assures that 
the program will end at this point and pass control 
to the keyboard buffer. 

Program 2 is similar to Program 1. The main 
differences are in line 60030 and in the characters 
POKEd into the keyboard buffer. In the disk ver- 
sion, line 60030 PRINTS, at the top of the screen, 
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the disk command to SAVE and Replace the pro- 
gram, followed by a colon and the command to 
VERIFY the program on disk. Since the user does 
not need to take any action (such as rewinding a 
tape) in the disk version, verification can begin 
immediately after the SAVE. For that reason, the 
additional keyboard buffer POKEs in line 60050 of 
Program 1 are not needed in the disk version, so 
the program ENDs after POKEing a 2 in location 
198 to indicate two characters in the keyboard 
buffer. 


How To Use The Program 


To use this program for saving to tape: 


1. Type or LOAD Program 1 into your VIC-20 
or Commodore 64 before you start writing 
your program. Substitute your program name 
in place of DYNAMIC SAVE in line 60010. 


2. When you're ready to SAVE your program, 
place your tape into the recorder and type 
RUN 60000. The screen will clear, then the 
message PRESS RECORD AND PLAY ON 
TAPE will appear. 


3. Press RECORD and PLAY. The computer 
will supply its typical response, OK, followed 
by SAVING and whatever program name 
you supplied. 


4. After the first copy of the program is saved, 
the response SAVING and the program name 
will be repeated to indicate that the second 
copy is being SAVEd. When the second SAVE 
is finished, the familiar READY message will 
be displayed, followed by the flashing cursor, 
positioned on the line with the double VERIFY 
command (V-:V-). 


5. Be sure to rewind your tape to the beginning of 
the program. Then press RETURN. The 
computer will respond with PRESS PLAY 
ON TAPE. After you press PLAY, the 
normal VERIFY routine will take place: OK, 
SEARCHING, FOUND and your program 
name, VERIFYING, OK. The process then 
repeats for the second copy. If you choose 
not to VERIFY, use the cursor controls to 
move the cursor off the V-:V- line before 
pressing RETURN. 


If you use disk, type or LOAD Program 2, 
making sure to substitute your program name in 
place of DYNAMIC SAVE in line 60010. When 
you're ready to SAVE, simply type RUN 60000. 
The computer will then display SAVING and 
VERIFYING messages at the appropriate time. 

Once Dynamic SAVE is in place, you can face 
the possibility of a power failure with a little less 
dread. 

See program listings on page 165. @} 


Let Your Computer “SPEAK” 
SPEAK 


COMvoice IS AS EASY AS 1-2-3 


1) PLUG COMvoice INTO 
YOUR VIC-20 OR 
CBM-64 


FOR THE VIC 20 
— cor EDIS 


2) TURN YOUR COMPUTER 


ON 
3) TYPE SPEAK “HELLO, 
HOW ARE YOU” 


AS EASY TO USE AS 
.. APRINT STATEMENT 


ONLY $149.95 


ALSO ASK ABOUT OUR 


DEALER INQUI 


SPEAK 
SPEAK 


RIES INVITED 


HOME SECURITY AND ENERGY MANAGEMENT PRODUCTS 


VIController 


Wireless remote control system 

for the VIC-20 and CBM-64. 

Use with BSR and Leviton remote 
receiver modules. $69.95 


AGE NE SIS. P.O. 


ÆRE COMPUTER CORPORATION HEER 


COMsense 
Input device for the VIC-20 and 
CBM-64. Provides 4 open/close 
and 2 analog inputs. 
$49.95 


COMclock/AUTOboot 

Clock/calendar cartridge for 

CBM-64 with battery backup 

and auto-start software in ROM. 
$69.95 


Box 1143 Bethlehem, PA 18018 (215) 861-0850 


COLOR PROBLEMS? 
One of Our Four New 
Products will Solve Them! 


You're not alone. Thousands of Com- 
modore 64 owners have “fuzzy” color on 
their TV. Most have interference lines 
crowding out their great graphics. Many 
have bought expensive monitors or new 
TVs, and often even that hasn't helped. 
But, most of us just lived with the problem. 
Now the engineers at Bytes & Pieces 
have four simple, inexpensive solutions, 


If you have an “old 64” (with the 5 pin 
Monitor Din Plug), you've probably had 
color, resolution and interference 
problems. We can solve them! 


1 The Interference Stopper... A new 
= kit that installs in minutes with two 


simple solder connections. Best 
results when combined with 72, 3, 
or 4 below. Absolutely stops 90% of 


the RF interference on your screen. 


$15.95 


The Color Sharpener. . Use if your 
“old 64” is hooked up to a TV. Just 
plug into the monitor plug, and the 
color and contrast immediately im- 
prove. Dramatically. Crisp letters. 


Great graphics. 618 95 


Тһе NEW Color Sharpener 
CABLE. . Use if your "old 64” is 
hooked up to a monitor. A new 2 


2. 


The Monitor "Improver". . If you 
have a Commodore 1701 monitor, 
this cable (3 prong) gives you a pic- 
ture you won't believe. Better than 
the cable Commodore built. ..by 

а lot. Try it, you won't be disap- 
pointed. (Also hooks your "Old 64" 


to the 1702.) S2 4.95 


The Reset Switch. . .Here it is, a 
Reset Switch for Vic or Commodore. 


5. 


Get back into control of a “Hung-Up” 
program. Resets all pointers. Easy 
ot? two solder connection installation. 
Every computer should have one. 
$9.95 


If any of our products do not work to 
your satisfaction, send it back and 
we'll refund your purchase price in full. 


DUST PROBLEMS? 
Solve Them with Matching Dust 


Covers for Computer, Tape and Disk. 


57.95--59.95 
These ате the deluxe covers for either the 
Commodore 64 or the Vic 20 made of 
brown leather grain Naugahyde, spe- 
cially lined with a soft non-scratch liner, 
for а cover you just can't beat. 
Don't waste your money on those cheap 
looking, clear plastic, static filled covers. 
Get the quality ones, custom fitted to your 
Commodore computers. 


Available singly or as a matched set in 


ener ЫШ АШ the Бепейі of #2, Peduliful brown simulated leather NS 
on your monitor. $24.95 trademarks of Commodore Computer Company. I d 
ess 
es & Pieces, INC. 5 GON Gon Steet |ы 
7 Invited Wauwatosa, WI 53213 414/257-3562 State /Zip. 


ORDER TODAY! 
lease send me the following: 
Item Amount 


Interference 
Stopper @51595 5 
Color Sharpener 
@51895 

NEW Color 
Sharpener Cable 
@ $24.95 

The Monitor 
Improver @ 
$24.95 

The Reset Switch 
@$9.95 


5 


5 


5 


Computer Dust 


^... Cover @ 5995 5 
1541 Disk Dust 
Cover @ $8.95 5 
Dataset Dust 
Cover @ $7.95 5 
| Shipping & Handling 5 200 


| 5% State Tax 
1 (Wisconsin Residents only) $ 1 


TOTAL $ В 


О Check or Money Order enclosed 
1 О Charge іо my VISA ог MasterCard 
1 VISA # 
MasterCard # 
I Inner Bank # 
| Expiration Date 
| 
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ViCreations_ 


Dan Carmichael, Submissions Editor 


The Indexer 


This month’s offering presents a small data 
base program, “The Indexer.” Designed as an 
index for COMPUTE's GAZETTE articles, it can be 
used for a variety of purposes. It runs on any 
size VIC-20 and the Commodore 64. 


If you're like me, you probably keep your back 
issues of COMPUTE!s GAZETTE. There's a wealth of 
reference material in each issue. The only problem 
is remembering just what issue contains that arti- 
cle you so desperately need. 

This month, we'll look at a small data base 
program that allows you to keep an index of arti- 
cles or books that are of interest to you. “Тһе In- 
dexer" stores such information as magazine (or 
book) name, subject matter, article title, month 
and year of issue, page number, and the type of 
computer the article applies to. It can also search 
for that article by subject, article name, magazine 
name, and type of computer. 


Storing Data In The Program 
The Indexer is machine independent —3it does not 
store data on a peripheral device such as a tape 
cassette or disk drive. Information is read into the 
program from DATA statements and is stored 
within the program in an array. If you study it 
carefully, you'll see some useful array and table 
look-up techniques. 

Each DATA statement you enter must include 
the following six elements in order, and each entry 
should be separated by a comma. 


DATA magazine name, article title, subject, 
month.year, page number, type of computer 


Be careful when entering the DATA state- 
ments—a misplaced or forgotten comma will 
cause errors when the program is run. Be sure 
not to use commas or colons when typing in the 
article titles. 


How To Use The Indexer 


Type in the program, carefully watching all cursor 
control characters, and save it to tape or disk before 
running. The five DATA statements at the end of 
the program are optional, included only as ex- 
amples of the DATA statement format. If you 
wish to begin your own data base, you can replace 
the DATA statements from line 901 on. 

Each time you add or delete DATA statements 
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from the program, change the value of the variable 
N in line 900. This variable represents the exact 
number of DATA statements included. If you 
number consecutively, beginning at line 901, it 
will be easy to figure out how many DATA state- 
ments there are. And anytime you update your 
program, you should SAVE a copy to tape or disk. 

Once the program is running, you'll be 
prompted to select the target of your search. You 
can search for article subject, article name, name 
of magazine, or type of computer. To start the 
search, press the indicated function key. You'll 
then be asked for the target of your search. Just 
enter the search keyword, press RETURN, and 
the program will perform the table search. 

If you're using the program with an unex- 
panded VIC, memory will become a problem as 
you add DATA statements. String arrays—the 
kind used in this program to store data—use a lot 
of memory. In addition, the DATA statements 
take up six bytes plus one byte per character. If 
you accumulate a lot of data, an expander cartridge 
will come in handy. The Indexer is written to run 
on a VIC with any memory configuration, as well 
as on the Commodore 64. 


Tips For Data Entry 

Subject: Your searches will usually be done by 
article subject, so keep this category as broad as 
possible. For example, let's say you want to index 
various articles about game paddles. Enter all of 
them with the subject “paddles,” even if some 
are about drawing with paddles and others about 
using them in games. That way, when you enter 
“paddles” as the target of your search, the index 
of all articles on this subject will be displayed. 

Spelling: Watch your spelling, and be consist- 
ent with your subject category names. For ex- 
ample, don't enter one subject as "paddle" and 
another as "paddles." The computer will see these 
as two completely different categories. 

Memory: As stated before, The Indexer can 
use a lot of memory, so you might want to abbre- 
viate article titles. For example, the GAZETTE col- 
umn “Machine Language For Beginners" could be 
entered as "ML For Beginners" or even “Вер ML." 

Although this program was written as an 
article index, it can be adapted for other uses. The 
data base has six elements and can search by any 
of four variables. It could be easily adapted for 
other uses such as a birthday reminder or an elec- 
tronic phone book. The applications are up to you. 

See program listing on page 151. @} 


64K lex VIC 20 


ECT-A-RAM 


SELECT-A: RAM BRINGS TO YOUR VIC 20 
THE POWER THAT ONLY MEMORY CAN 
PROVIDE. 


The power of any computer is measured by its 
memory capacity. The more memory you have, 
the more powerful your programs can become. 

SELECT-A-RAM gives your VIC 20 the power of 
memory. 65,536 bytes of power to be exact. 
Enough programming power to rival any Home 
computer. 

The power hungry programmer can also add 
more memory. Each of SELECT-A-RAM's two 
expansion slots will accept any amount of memory 
from 3K to 128K. 

SELECT-A-RAM's powerful expansion capabilities 
are made possible by a technique we call Soft 
Select. Soft Select allows your VIC 20 to perform 
many sophisticated functions not possible with 
other memory expansion devices, ie., disk drive 
emulation, printer spooling, simultaneous and 
interactive program execution (to name just a few 
of our soon to be released packages). 


Bring the power of memory to your VIC 20 
with SELECT ‘A: RAM. 


Call or write for additional information and the 
dealer nearest you. Direct orders accepted. 


DEALERS INQUIRIES INVITED 


Vic 20 is a Trade Mark of Commodore Electronics Limited. 


SELECT-A-RAM 


64K Memory 

Two Expansion Slots 

Write Protection 

Reset Switch 

Expandable with 64K and 128K Modules 

Soft Select Control 

Compatible with All Program Cartridges 
and Hardware Devices 

Provision for Optional External Power 

One Year Limited Warranty 


Distributed in Canada by: 


PAX SOFTWARE 


60 Hanson Road, Unit 133 Mississauga, Ontario L5B 2P6 
(416) 270-2639 


ADVANCED:PROCESSOR: SYSTEMS 


P.O. Box 43006, Austin, TX., 78745-0001, (512) 282-8222 


HINTS&TIPS 


Printing Tables 


Pat Slater 
If you've discovered a clever, time-saving technique, or a 6 4-4 :rem 241 
brief but effective programming shortcut, send it to "Hints & 8 OPENA,J :rem 20 
Tips,” clo COMPUTE's GAZETTE. If we use it, we'll pay 10 FOR I=1 TO 5 :гет 215 
you $35, 20 READ A$,B$:IFI$="S"THEN35 :rem 22 


One of the limitations of Commodore BASIC is 
the total lack of formatted PRINT statements. If 
you're used to PRINT with format or PRINT 
USING, it may seem impossible to print neatly 
aligned tables with Commodore BASIC. 

The language does provide TAB and SPC 
functions for screen displays, but both simply 
space over when used to print to a printer or a file 
with PRINT#. The programs I’ve included will 
format for screen or printer, depending on your 
input. They’re especially helpful for use with for- 
matting printed output. Let’s look at an example: 


PRINT A$;TAB(20);B$ 


prints B$ starting in column 20 regardless of the 
size of A$, but 


PRINT #4,A$;TAB(20);B$ 


prints A$, skips 20 spaces from the end of A$, 
then prints B$. There’s no telling where B$ will 
end up unless you know the size of A$. This being 
the case, you must find a way to count spaces 
when doing formatted printout. 

One way to count spaces is to use the LEN 
function. For example, the statement below will 
place A$ in column 1, B$in column 15, and C$ in 
column 30: 


PRINT#4,A$;TAB(14 — LEN(A$));B$;TAB(14 — LEN 
(В$));С$ 


The following program uses the LEN function 
to align rows of names: 


3 PRINT" {CLR} SCREEN OR PRINTER S OR P":IN 


PUT I$ :rem 151 
4 IF I$«»"S"AND I$<>"P"THEN3 :rem 241 
5 IFI$-"S"THENJ-3:GOTO8 :rem 153 
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30 PRINT£4,A$;TAB(19-LEN(A$));B$:GOTO40 


:rem 214 
35 PRINT#4,A$;SPC(19-LEN(AS));BS$ :геп 19 
40 NEXT I :rem 236 
50 DATA WATTS, SORENSON, MATTHEWS, NG,. JO 
NES :rem 186 
60 DATA BURL, YATES, RUVALDS, KING, REDLA 
SIK ггет 132 
When executed, the program prints: 
WATTS SORENSON 
MATTHEWS NG 
JONES BURL 
YATES RUVALDS 
KING REDLASIK 


If you use this method to align numbers (along 
with STR$ to convert the numbers to strings), 
several problems pop up as shown in the next 
example: 


3 PRINT" {CLR}PRINTER OR SCREEN P OR S":IN 


PUTIS :rem 151 

4 IF I$<>"P"ANDI$<>"S"THEN 3 :геп 241 
5 IF IS="S"THENK=3:GOTO8 :rem 154 
6 K-4 :rem 242 
8 OPENA,K irem 21 
18 FOR N-1 TO 5 :rem 220 
20 READ I,J:IFI$="S"THEN35 :rem 222 
30 PRINT£4,1;TAB(8-LEN(STR$(I)));J:GOTO49 
trem 199 

35 PRINT44,I;SPC(8-LEN(STR$(I)));J :rem 4 
40 NEXT М :rem 241 
5@ DATA 78.66, 40.00, 139.30, -77.22, 200 
0.00 :rem 213 

60 DATA -142.91, 6.56, 12.50, 521.12, 9.9 
Ұ/ 1:9 :гет 83 


This program prints: 


78.66 40 
139.3 2771722. 
2000 — 142.91 
6.56 12025 
521.12 9.99 


Notice that the numbers are aligned on the 
left (at the sign position) rather than by decimal 
point, and that trailing zeros are lost after the 
decimal point. To make the individual numbers 
appear in the correct format (40 as 40.00, for ex- 
ample) you can convert them to strings as follows: 


I$ = STR$(INT(I)) +.” + RIGHT$(STR$(I*100),2) 


The first term gets the integer part of the number, 
next the decimal is added, and finally it is neces- 


sary to multiply by 100 and grab the last two digits 


to keep from losing trailing zeros. 

Once you have the number in correct format, 
use the LEN function to count spaces and tab 
before printing each number as shown in the ex- 
ample below: 


3 PRINT" {CLR} SCREEN OR PRINTER S OR P":IN 

PUT US :гет 163 
4 IF US$<>"S"ANDUS<>"P"THEN3 srem 9 
5 IF US="S"THENK=3 : GOTO8 :rem 166 
6 К-4 :rem 242 
8 ОРЕМ4,К :rem 21 
10 ЕОК К-1 ТО 5 :геп 220 
20 READ I,J :гет 61 


22 I1$=STR$(INT(1))+"."+RIGHT$(STR$(I+1ØØ) 


7125) :rem 140 
24 J$-STRS$(INT(J))-*"."-RIGHTS$(STRS$(J*199) 
72) :rem 145 
30 PRINT#4, ""TAB(8-LEN(I$));I$;TAB(17-LEN 
(J2$));J3S$ :rem 200 
40 NEXT М :rem 241 
5@ DATA 78.66, 40.00, 139.30, -77.22, 200 
0.00 :rem 213 
60 DATA -142.91, 6.56, 12.50, 521.12, 9.9 
9 :rem 83 


Now you get the printed numbers aligned by 
decimal position: 


78.66 40.00 
139.30 —78.22 
2000.00 — 143.91 
6.56 12.50 
521.12 9:99 


Using LEN to count spaces this way allows 
you to print neat-looking tables of words and/or 
numbers. Though a lot of functions are involved, 
it doesn’t take nearly as much time as the printout 
process, so it won’t slow down your program. @} 


YOU HAVE BEEN GIVEN $25,000 
TO START YOUR OWN 


Do you have enough BUSINESS SAVVY to: 
"Buy supplies "Buy equipment 
Are you AGGRESSIVE enough to: 
"Hire, fire and discipline personnel 
Are you CUNNING enough to handle: 
“Taxes & insurance "Security problems “Fluctuating market prices...? 
If so you just may be SHARP enough to stay in business 
and become a garden shovel TYCOON! ! 
А FASCINATING BUSINESS SIMULATION GAME NOW AVAILABLE AT INTRODUCTORY PRICES* 
Tape $17.95 Disc 519.95 
TURBO SOFTWARE P.O. Box 11722 Rock Hill, S.C. 29731 


‘Includes shipping & handling. South Carolina residents add 4% soles tox 


"Advertise effectively.......? 


Which 
Software Is 


Worth The 
Money? 


Find out in: 


The SOFTWARE 
BUYER'S REPORT '" 


The newsletter that gives you 
the real story behind the software hype. 


* No advertising means honest, unbiased evaluations 
* Topnotch reviewers offer opinions you can trust 
* Get in-depth reviews of software for: 


Games and Entertainment * Graphics and Music * Home 
Applications * Education * Business + Programming Aids 
* Telecommunications * And more! 


NEW!! COMMODORE 
64/VIC 20 EDITION 


Devoted only to software for Commodore's home computers. 


BY SUBSCRIPTION ONLY — NOT 
AVAILABLE ON NEWSSTANDS 


Published ten times a year. Special charter rate 


Subscription rate $35.00 a year U.S. fot Comune есе 


Additional) 429.95 
Start Getting The 


Most Out Of Your 
Software Dollar ! 


FILL OUT AND MAIL TODAY OR CALL 
800-336-3535 TO ORDER (In Penna. 215-691-1912) 


(Canadian and Overse. 


I 
У [Г] YES! | want to subscribe! I’ve enclosed my check or money I 
1 order for $29.95 I 
I 1yaDie r Softw Jy ; I 
I О Send me more information right away. в 
І [| 
Ц Names =з ез б == I 
L| L| 
WM Phone (area code] _ L| 
[| I 
Ш Address сые ae [| 
I І 
І fej S “ш ше State Zip I 
[| Computer Model: [ | VIC 20 [ ] Commodore 64 [| 
L| І 
П f 1 
І Тһе SOFTWARE BUYER'S REPORT I 
[] 824 Eighth Street L| 
[| Bethlehem, PA 18018 L| 
I CG 284 [| 
Lm m = m m шш = ш ш ш ш шш ш шш шш ш шш шш шш шшш | 


CHARLES BRANNON 
PROGRAM EDITOR 


Apple recently reduced the price of its Lisa to 
around $8000. Lisa, whose acronym supposedly 
stands for Local Integrated Software Architecture, 
was actually just the in-house code name for the 
machine (insiders claim it was named after a 
girlfriend of Steve Wozniak, Apple co-founder). 
The name of the machine was leaked so exten- 
sively that Apple was forced to market with the 
code name, hence the apocryphal acronym. 

Lisa is a dedicated workstation with a mouse, 
ultra-high resolution graphics, and icons (pictorial 
diagrams). ”Dedicated workstation” means that 
there is one user per computer, rather than many 
users sharing a large computer via separate termi- 
nals. The advantage of a dedicated workstation is 
its exclusivity, privacy, and speed of access. The 
entire power of the computer can be dedicated to 
one user, rather than spread out among many. 
This is the primary concept behind so-called per- 
sonal computers. 

The disadvantage of dedicated systems sur- 
faces in environments where people need to share 
and exchange information. That is why Local 
Area Networks (LANs) are hooking up these small 
computers, usually to a central hard disk. A LAN 
doesn’t violate the concept of personal computers; 
it just broadens their communication capabilities. 
Some companies are going too far, though, and 
we are seeing expensive business microcomputers 
which are mediocre mimics of the large, powerful, 
but impersonal minicomputers and mainframes. 

Apple claims you can start using Lisa within 
20 minutes, without any instruction manuals. If 
you remember your first experience with a com- 
puter, you may be inclined to doubt this. Yet 
there’s something new here. Apple has drawn on 
the experience of research at Xerox’s Palo Alto 
Research Center (PARC). The Lisa is an intuitively 
understandable system. 

Most of this "user-friendliness" (to use a 
term that has become banal in the industry) comes 
from Lisa’s linked menus. The menus lead you 
from one option to another and are primarily pic- 
torial, drawing on the Lisa’s very high resolution 
capability (pun somewhat intended). 

A highly visible characteristic of the Lisa is 
the mouse, used to make selections as you move 
the cursor about. The idea is the same as a joystick 
or trackball (some mouses are merely upside- 
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HORIZONS: 64" 


down trackballs). Using the mouse is supposed to 
be more natural than pressing cursor control keys. 
Many people complain that the mouse is a gim- 
mick, taking up extra desk space and requiring 
you to take your hands away from the keyboard 
to move the cursor. 

Both hardware and software companies were 
impressed by and envious of the Lisa. Lisa was 
really a new product, an innovation in an industry 
of “me, too” computers and software. Well, the 
copycats didn’t waste any time. Companies began 
developing their own integrated software, com- 
plete with icons, windows, and even mouses. 
The effort is Promethean, as companies try to 
bring the $8000 capability of the Lisa to your $2000 
micro (of course, they charge you only $800 to 
$1000 for the software). 


Preparing to type with Magic Desk I. 


Commodore’s Reaction: 

Magic DeskI 

Commodore also caught icon-fever. At the January 
1983 Consumer Electronics Show (CES), they 
introduced Magic Desk I, a software package for 
the 64 which was not available until around 
November. The price is down-to-earth, with a 
suggested retail of $60-$70. What Commodore 
and others (Microsoft [Windows], VisiCorp [Visi 
On], Quarterdesk Software [DesQ]) seem to forget 
is that Apple spent the equivalent of a hundred 
man-years developing Lisa. Some integrated pro- 


THE MASTER KEY 


unlocks the door to the Согпгподоге 64 X 


| ж 


Word Processing 
File Management 
Home Finance 
Electronic Paintbrush 
Terrestrial Game 


The Gateway to Five Worlds 129.95 


o International Tri Micro 

- 1010 N. Batavia Ste. G 
: Orange, CA 92667 
wm 714-771-4038 


grams may be capable, others might just copy 
Lisa's gimmicks. 

Magic Desk may be right for some people, 
but it’s not for everyone. When you plug in the 
Magic Desk cartridge and turn it on, a picture of a 
desk appears. On top of the desk are several icons: 
pictures of a typewriter, telephone, calculator, 
card file, and ledger. Under the desk is a waste- 
basket, and to the right is a filing cabinet. A digital 
clock on top of the filing cabinet keeps time. A 
door to the left “opens” the way to new appli- 
cations. Above this scene hovers a ghostly hand, 
your cursor. 


Һе hand at the typewriter and the scree 
a Video typewriter. Indee J 


ectronic typewriter, complete with speci 


[> you type, the screen scrolls horizonta 


Creating text in the typewriter mode. 


With the joystick, you move the hand to the 
appropriate picture and press the fire button to 
select it. Magic Desk I supports only a few of the 
icons: the typewriter, wastebasket, filing cabinet, 
and digital clock. Magic Desk II will support the 
ledger (spreadsheet) and the calculator. Presum- 
ably, the phone will be used with a modem, and 
the card-file as a simple data base manager. 

Point the hand at the typewriter and the 
screen transforms into a video typewriter. Indeed, 
it works just like a modern electronic typewriter, 
complete with special effects. As you type, the 
screen scrolls horizontally. The margins are always 
visible, and you can change them at any time. 
With the function keys you can set, clear, and 
move to tab stops. When you press RETURN, the 
paper pops up a line and the typeball whirs to the 
beginning of the next line, complete with sound 
effects. This is perhaps a bit too cute. 

After you type your letter, you can return to 
the desk and file the letter. With the hand, you 
can open one of the three file cabinets. Each 
cabinet holds ten file folders, each of which can 
hold ten pages of text. What you are really doing 
is loading and saving your files to disk, but this is 
supposedly transparent. You just select a folder, 
name it if you like, put your typing into it, or re- 
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trieve a page from it. Any of these operations will 
cause a picture of the disk drive to appear, and 
the actual drive will whir and click a surprisingly 
long time, considering that you are only trying to 
file one page. I found this quite frustrating. 

This is also where Magic Desk gets confusing. 
None of the icons are labeled, so it’s like reading 
those pictorial traffic signs in a foreign country. If 
you get stuck, you can press the Commodore 
logo key and a help screen will appear. The icons 
you are using will be named; you can select any 
of them with the hand to get a more complete 
description. 

I found Magic Desk novel and rather easy to 
use, though the pictures are both a blessing and a 
curse (I would prefer an English menu of choices). 
What you gain in ease of use and intuitive opera- 
tion, you lose in power, speed, and efficiency. 
Compared with the “old way” of doing things, 
Magic Desk is limited once you're no longer a 
beginner. It slows you down as you pursue a task 
through a chain of menus. The video typewriter 
has almost none of the advantages of a true word 
processor. It's just like an IBM Selectric. You don't 
have to learn anything, but you don't have а 
tenth of the flexibility and power of even a mild- 
mannered word processor. Apparently, this is 
not a problem in Commodore's eyes. Indeed, the 
press release sells this similarity, emphasizing 
a typewriter is not a word processor, and implies 
you're better off that way. 

Nonetheless, Magic Desk can be an excellent 
nonintimidating way to learn to use a computer. 
Magic Desk may change the mind of anyone who 
"hates computers." It lets you perform basic com- 
puter tasks with a minimum of fuss, and can lead 
you into more powerful applications later. Despite 
its limitations, Magic Desk points the way to the 
future of home computer software. 

Magic Desk I 
Commodore Business Machines 
1200 Wilson Drive 


West Chester, PA 19380 560-570 


| 


ANSV AAN 
TAX DEDUCTIBLE 
559.95........ 


Commodore 64. 
Маке tax time easy with fast, асси- 
rate & generous software. Designed 
for professionals to compute lowest 
rate from tax tables, X, Y, Z & 5-year 
avg. Spreadsheet design prints 
results for Epson & other serial bus 
port printers. Tax forms included. 
Visa & MasterCharge accepted. 


а 
-SAURA 


Commodore 64 is a trademark of Commodore 
Business Machines. Epson is trademark of 
Epson America Inc. © Saura, 1982 


Computer Software 

& Consulting 

7510 Foxridge Way 
Anchorage, Alaska 99502 
(907) 349-7485 


Commodore 64 


апа EC و‎ 


Telecommunications 
with a difference! 


Unexcelled communications power and 
compatibility, especially for professionals and 
serious computer users. Look us over; SuperTerm 
isn't just “another” terminal program. Like our 
famous Terminal-40, it’s the one others will be 
judged by. 

+ EMULATION — Most popular terminal protocols: 

cursor addressing, clear, home, etc. 

+ EDITING—Full-screen editing of Receive Buffer 

* UP/DOWNLOAD FORMATS — CBM, Xon-Xoff, 
ACK-NAK, CompuServe, etc. 
FLEXIBILITY —Select baud, duplex, parity, stopbits, 
etc. Even work off-line, then upload to system! 
DISPLAY MODES—40 column; 80/132 with 
side-scrolling 
FUNCTION KEYS—8 standard, 52 user-defined 
BUFFERS—Receive, Transmit, Program, and Screen 
PRINTING — Continuous printing with Smart ASCII 
interface and parallel printer; buffered printing 
otherwise 
* DISK SUPPORT—Directory, Copy, Rename, Scratch 


Options are selected by menus and EXEC file. Software 
on disk with special cartridge module. Compatible with 
CBM and HES Automodems; select ORIG/ANS mode, 
manual or autodial. 


Write for the full story on SuperTerm; or, if you 
already want that difference, order today! 


Requires: Commodore 64 or VIC-20, disk drive or Datasette, and 
compatible modem. VIC version requires 16K memory expansion. Please 
specify VIC or 64 when ordering. 


Smart ASCII Plus . . . 559% 


The only interface which supports streaming — sending 
characters simultaneously to the screen and printer — with 
SuperTerm. 

Also great for use with your own programs or most 
application programs, i.e., word processors. Print modes: 
CBM Graphics (w/many dot-addr printers), TRANSLATE, 
DaisyTRANSLATE, CBM/True ASCII, and PIPELINE. 


Complete with printer cable and manual. On disk or cassette. 


VIC 20 and Commodore 64 are trademarks of Commodore Electronics, Ltd. 


(816) 333-7200 Send for a free brochure. 


MAIL ORDER: Add $1.50 shipping and 


handli 50 for C.O.D); VISA/Mastercard 
ra MIDWEST sci бали and oR date) MO residents 
sales tax. Foreign о le 

P ча MICRO Inc. Uss US. Bank ONLY; add $5 ЭРЕ. 


311 WEST 72nd ST. е KANSAS CITY • МО • 64114 


COMMODORE 64z 
American Peripherals 


NEW ARRIVALS 
(disk or tape) 


1030 LANGUAGE TRANSLATOR 
English to German. $10 

584 PIANO-64 519.95 
Change your 64 to а piano. 

126 TRAFFIC SIGNALS $14.95 
Teach your child safety. 


1240 РОСО 524.95 
Like 0-Вегі. 

596 TELLING TIME $24.95 
Hi-res Round clock. 

1249 TYPESETTER $49.50 


Hi-res printing оп 1525. 

1276 ELIZA $19.95 
Has conversation with you. 

1016 ELECTRONIC GRADEBOOK 
Teacher special $24.95 

57% LOCATION OF COUNTRIES 
Geography $14.95 

575 CANCER $15.95 
Kids and smoking. 

762 ELEMENTARY ELECTRICITY 
5th-9th gr. $24.95 

1264 TRAVEL ABOUT AMERICA 
Series of 7 programs on 

Geog. and History $150. 

578 SOUND EFFECTS $15.95 
Demo and prog. aid. 

139 STRATHCLYDE BASIC 
12 lessons * test. $34.95 

1014 GEOMETRY SERIES 

20 progs. with hi-res 

Disk $300 Tape $400 

128 TEST MAKER $24.95 
Makes multi-choice tests. 

1018 LARGE NUMBER ADDITION 
Great display $24.95 

1275 VIC-20 EMULATOR $34.95 
Run most VICs on 64. 

1246 INTERRUPT MUSIC EDITOR 
Machine code. $29.95 

1017 MORTGAGE $19.95 
Does all loan calculations. 

1015 ANIMAL-VEGETABLE 
буг.-10уг. $14.95 

1285 MAESTRO $34.95 
All conceivable music and 
sound functions in 1 program. 

1280 WATTS and AMPS $14.95 
Household elec. calcs. 

580 MATCHING SHAPES 
1.0. Builder 514.95 


ORDERING BLANK 


To: American Peripherals 
122 Bangor Street 
Lindenhurst, NY 11757 


Ship to: Name 
Street 
Town, State, ZIP 


Please send your complete 64K catalog. 


ITEM DESCRIPTION 
(specify disk or tape) 


Charge to my credit card 

. VISA .. MASTER CARD 
Account #.. 
Exp. date .. 


Signature . 


NY State Residents 7.25% tax $... 


EDUCATIONAL 
(disk or tape) 


644 Type Tutor $19.95 
645 Assembly Language 
Tutor $14.95 
687 Fractional Parts $14.95 
902 Estimating Fractions $14.95 
695 Tutor Math $14.95 
870 Square Root Trainer $14.95 
699 Counting Shapes $14.95 
694 Money Addition $14.95 
689 Math Dice 14.95 
678 Speed Read $14.95 
643 Maps and Capitals $19.95 
645 Sprite Editor $19.95 
904 Sound Synthesizer 
Tutor 19.95 
696 Diagramming 
Sentences $14.95 
690 More/Less $14.95 
688 Batting Averages $14.95 
802 TicTac Math $16.95 
904 Balancing Equations $14.95 
905 Missing Letter $14.95 
864 Gradebook $15.00 
810 French 1-4 $80.00 
811 Spanish 1-4 $80.00 
807 English Invaders $16.95 
809 Munchword 516.95 
812 Puss іп Boot $20.00 
813 Word Factory $20.00 
660 Hang-Spell $14.95 
905 Division Drill 14.95 
906 Multiplic. Drill $14.95 
907 Addition Drill $14.95 
908 Subtraction Drill $14.95 
910 Simon Says 14.95 
911 Adding Fractions $14.95 
912 Punctuation $14.95 


EDUCATIONAL 
Series on disk 


Computer Science (30 pr.) $350 
HS Biology (70 programs) $500 
HS Chemistry (40 programs) $450 
HS Physics (60 programs) $475 
HS SAT Drill (60 programs) $99 
Elem. Social Studies (18 pr.) $225 
Elem. Science (18 programs) $225 
Further French (12 pr.) $95 
Further Spanish (12 pr.) $95 
Statistics (12 programs) $95 


516-226-5849 


Over 600 programs. 


COD add $2.00 $...... 
foreign orders add $2.00 $...... 
; Shipping $..1.75 

Total Amount $.. 


Commodore 64 is a trademark of Commodore Business Machines, Inc. 


COMPUTE!'s Gazette March 1984 131 


Each month, COMPUTE's GAZETTE will tackle some 
questions commonly asked by new VIC-20/Commodore 
64 users and by people shopping for their first home 
computer. 


Q. Tve heard about emulators available for 
the Commodore 64 that allow it to run all Apple 
software and software for other computers, too. 
I've seen some magazine advertisements by mail- 
order companies for emulators. Do you plan to 
review any of these emulators? 


А. We haven't reviewed any emulators be- 
cause, at this writing, they simply don't exist. 
Furthermore, we urge readers to be cautious about 
emulators—a lot of misinformation is circulating. 

We, too, have heard all the stories about 
Apple emulators for the Commodore 64, and have 
seen the ads in magazines. Usually we telephone 
the company advertising the emulator and try to 
obtain one for testing and review purposes. А1- 
most always the response is something like, 
“They'll be ready for delivery within a few weeks.” 
Then several months go by, and still no emulator. 
Some companies have been promising to deliver 
emulators for more than a year. We have yet to 
see one. 

Heed this advice: Do not order or buy an emulator 
unless you first see an actual, working model. Other- 
wise, you will probably be disappointed. 

Why are we so emphatic? Because true emu- 
lation of another computer is not something that 
is easily accomplished. There are hundreds of 
problems to be overcome, especially when de- 
signing something like an Apple emulator for the 
Commodore 64. Yet, some companies persist in 
promising—and even advertising —Apple 
emulators. 

Nearly all these emulator rumors can be indi- 
rectly traced to a statement made by Commodore 
back in early 1982. At that time, Commodore 
hinted that it intended to introduce a personal 
computer that could emulate other popular com- 
puters on the market, such as the Apple and Atari. 
A widely read article to this effect was published 
in the Wall Street Journal. Everyone was excited by 
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SIMPLE ANSWERS TO COMMON QUESTIONS 


TOMR. HALFHILL, EDITOR, 
COMPUTE/'s РС & PCjr Magazine 
~ 


the prospect, but eventually Commodore quietly 
shelved the idea—probably because it was too 
hard to accomplish at an affordable price. 

In the meantime, the Commodore 64 was 
introduced. Unfortunately, some people jumped 
to the conclusion that this was the “chameleon 
computer” Commodore had hinted about. Within 
a few months, independent companies began 
announcing and even advertising Apple emu- 
lators for the 64. The idea of an Apple emulator 
was very attractive to new 64 owners because 
almost no software was available for the computer. 
But there are formidable obstacles to making an 
Apple emulator for the 64. 

It's true that the computers are superficially 
similar—both are 40-column color computers with 
64K Random Access Memory (RAM), Microsoft 
BASIC, and compatible microprocessor chips (the 
6502/6510). But the memory maps are quite differ- 
ent, and the Apple lacks many of the 64's special 
features (sprites, 16-color high-resolution 
graphics, polyphonic synthesized sound, etc.). 
This is important because much commercial soft- 
ware these days is written entirely in machine 
language, including almost all games. ML pro- 
grams are specific to the memory configuration of 
the machine on which they were written. Even 
seemingly slight changes to the native computer's 
operating system or memory layout (such as add- 
ing expanders to a VIC-20) can render some ML 
programs unusable. The problems of emulating a 
totally foreign computer are infinitely greater. 

Even if an Apple emulator were developed, 
there would be one more problem. Almost all 
Apple software is published on floppy disks. The 
Commodore Disk Operating System (DOS) is in- 
compatible with the Apple DOS. And the data is 
stored in different formats. An Apple emulator 
would do you no good unless you also had an 
Apple disk drive emulator. This would almost 
certainly require that you buy a separate disk drive 
and compatible interface cables. 

In the meantime, let the buyer beware. We 
heard of one person who paid more than $100 for 
an "Apple emulator" for his 64 and got nothing 
more than a cable which allowed BASIC programs 
to be transferred between the computers. The 
task of translating the programs so they would 
run on the 64 was left up to him, of course. @ 


ENTECH 


LEADER IN SOFTWARE 
FOR THE COMMODORE 64 


MANAGEMENT SYSTEM 64 — This integrated business program gives you the computer power once 
reserved for large corporations. It stores the names of items, prices, item numbers and does all calcula- 
tions including tax, shipping costs and discounts. It prints invoices and packing slips in addition to short- 
term and long-term reports. Management System 64 even prints mailing labels from customer files. Know 
what's selling, whose buying and forget costly, time consuming inventory close downs. $69.95 
FINANCE CALC 64 — The leader in business and home financial analysis. You can have up to 1440 
itemized expenses and print 1085 different financial reports and bar graphs as it stores and compares up 
to 12 different budgets at once. This powerful program is a must for the rising entrepreneur. $49.95 


Ye por ws 
/ COMMODORE ва 
SOFTWARE 
1 


DATA BASE 64 — A perfect record system for any business or home. It can store up to 1200 records for 
each file. Each record has a capability of 20 fields of information. The program has multi-level sorting which 
facilitates quick and easy recalling of information and printing of labels and reports. It even allows you 
to create personal print formats. Data Base 64 also can be used with popular word processing programs. 
$59.95 


HOME 


FAMILY PAC — Three of the finest home programs available: $59.95 


* CHECKBOOK SYSTEM 64 — This easy to use program makes the balancing of confusing checkbook finances 
a breeze. It handles over 1300 transactions of up to 40 expense categories. Checkbook System 64 also prints 
statements, reports and all types of checks. Pay your bills by computer! Also available as a separate program. 
$39.95 


е RECIPE KEEPER 64 — This program is a handy kitchen aid that does more that just file. It can print 
out ingredients and directions, as well as calculate ingredient amounts for different serving sizes. The 
program comes complete with a mini-word processing section that enables you to type in up to 14 lines 
of directions. $39.95 


* SPACE MATH 64 — This educational program makes addition, substraction, multiplication and division 
learning fun and entertaining for youngsters. Solve math problems, explore the universe, dance to the music 
and watch the show. $29.95 


ENTERTAINMENT 


STUDIO 64 — Roll over Beethoven, now anyone can create music as expressive and sophisticated as the 
most advanced programmers!! With Studio 64, the computer does all the work while you play and enjoy. 
It is the only music program available that allows you to create music without any programming knowledge. 
Just play and the computer will instantly write the music on the screen. Enter up to 3 voices and choose 
from 4 wave forms on any voice. Play your compositions at different speeds and filter settings with syn- 
thesized drum rhythms! It will save and recall, add music to your own programs and print lead sheets. 
Music is only as far away as your C64. Disk/Cass. $39.95 


GAME DESIGNER 64 — This package contains everything you need to design colorful game characters, 

& backgrounds and entire screens. Animate up to 16 sprites on the background of your choice. Add it to 

Ve your own program. The limits are your own creativity. Combine it with Studio 64 to create any game 
imaginable. Power game sub-routine included. Disk/Cass. $39.95 


— All programs come in disk unless otherwise indicated. — 


WHEN THE DUST SETTLES ==> 
THE QUALITY REMAINS /ÆNTEQA. 


8224 Sunland Boulevard • Sun Valley, California 91352 ө Phone (213) 768-6646 


А Guide То 
Commodore User Groups 


Kathy Yakal, Editorial Assistant 


Here is an updated list of Commodore user groups 
throughout the world. If you have a group that 
you would like listed here, or if your listing needs 


Part I 


to be changed or deleted, please contact us so 
that we may keep our records current. 
In most cases, contact people have chosen to 


ALABAMA 


Birmingham Commodore 
Computer Club 

Harry Jones 

4845 Ave. B, Lot 7B 

Birmingham, AL 35208 

205/923-9260 


Huntsville Alabama Commodore 
Komputer Society (HACKS) 

Hal Carey 

9002 Berclair Rd. 

Huntsville, AL 35802 

205/883-0223 


Shoals Commodore User Group 
Warren Pratt 

809 W. 6th St. 

Sheffield, AL 35660 

205/381-1561 


Walker Area Computer Club 
(WACC) 

Daniel McGuire 

89 McCrory St. 

Cordova, ÅL 35550 

205/483-7833 


ALASKA 


COMPOOH-T 

Paul Mercer 

PO. Box 118 

Old Harbor, AK 99643 
907/286-2253 


ARIZONA 


Arizona VIC and 64 Users 
Tom Monson 

904 W. Marlboro Cir. 
Chandler, AZ 85224 
602/963-6149 


Catalina Commodore Computer 
Club 

George A. Pope 

2012 Ave. Guillermo 

Tucson, AZ 85710 


Commodore User Group 
Michael Stephany 

4578 Monarch Dr. 

Sierra Vista, AZ 85635 


ooo 


134 COMPUTE!'s Gazette March 1984 


Commodore User Group of 
Arizona 

Doug Peters 

PO. Box 21291 

Phoenix, AZ 85036 

602/831-1534 


AUSTRALIA 


Australian Computer Education 
Association 

PO. Box 194 

Corinda 4075, Old Australia 


CALIFORNIA 


B & S 64-PET User Group 
Bryan Goldschlag 

46 Banbridge Pl. 

Pleasant Hill, CA 94523 
415/938-0764 


California Area Commodore 
Terminal User Society 
(CACTUS) 

Darrell L. Hall 

PO. Box 1277 

Alta Loma, CA 91701 

714/947-0742 


Central Coast Commodore User 
Grow 

Gilbert Vela 

4237 Plumeria Ct. 

Santa Maria, CA 93455 

805/937-4174 


C-64 Users E & К 
215 W. Ist St., Suite 10548 
Tustin, CA 92680 


Commodore 64 West 
Don Campbell 

2917 Colorado Ave. 
Santa Monica, CA 90404 
213/828-9308 


Diablo Valley Commodore User 
Group 

Ben Braver 

762 Ruth Dr. 

Pleasant Hill, CA 94523 

415/671-0145 


list their home addresses and telephone numbers. 
When writing to them for information, please 
enclose a self-addressed, stamped envelope. 


DUG (Danville User Group) 
Kent E. Davis 

185 Front St., Suite 106 
Danville, CA 94526 
415/820-1222 


Napa Valley Commodore 
Computer Club 

Mick Winter 

РО. Box 2935 

Yountville, CA 94599 

707/944-2797 


PALS 

Jo Johnson 

886 S. К 

Livermore, CA 94550 


Peninsula Commodore User 
Group 

Timothy Avery 

549 Old County Rd. 

San Carlos, CA 94070 

415/593-7697 


PET-On-The-Air 

Max J. Babin 

525 Crestlake Dr. 

San Francisco, CA 94132 


Sacramento Commodore 
Computer Club 

Robyn W. Graves 

8120 Sundance Dr. 

Orangevale, CA 95662 


San Fernando Valley Commodore 
User Group (SFVCUG) 

Thomas Lynch 

21208 Nashville 

Chatsworth, CA 91311 

213/709-4736 


San Francisco Commodore Users 
Group 

Roger Tierce 

278-27th Ave. #103 

San Francisco, CA 94121 

415/387-0225 


San Luis Obispo VIC-20/64 
Computer Club 

1766 9th St. 

Los Osos, CA 93402 


So. Cal. 20/64 Users Group 
Star Route Box 1-C 

Pine Valley, CA 92062 
619/473-8087 


South Bay Commodore 64 Users 


Group 
Q.J. Miguel Gallego Garcia 
PO. Box 3193 
San Ysidro, CA 95073 


South Orange County User Group 
Steve Wimer 

2314 Monte Cristo 

San Clemente, CA 92672 


SPHINX 

Richard L. Heinze 
1240 Mills St. Apt. 4 
Menlo Park, CA 94025 
415/325-0127 


Twenty/Sixty-Four 
Don Cracraft 

PO. Box 18473 

San Jose, CA 95158 
408/264-2064 


Valley Computer Club 
Dr. Evan M. Thompson 
661 Meadowlark Dr. 
Turlock, CA 95380 


VIC-20 Owners Resource 
Computer Enthusiasts 
(V.O.R.C.E.) 

Stu 

1740 Bodega Ave. 

Petaluma, CA 94952 

707/763-8552 


CANADA 


Barrie User Group 
Gail Hook 

58 Steel St. 

Barrie, Ontario 
Canada L4M 2E9 


Calgary Commodore User Group 
John Hazard 

37 Castleridge Dr. N.E. 

Calgary, Alberta, 

Canada T3J 1P4 


Calgary Commodore Computer 
Club 

Radu Olanson 

47 Coachwood Pl. N.W. 

Calgary, Alberta, 

Canada T3H 1E1 


Commodore Computer Club 
Niels Hansen Trip 

PO. Box 91164 

West Vancouver, B.C., 
Canada V7V 3NG 
604/738-3311 


Commodore 64 User Group 
Carol Scheniman 

1322 Naples St. 

Oshawa/ Whitby, 

Ontario, Canada L1K 1J6 


Nova Scotia Commodore 
Computer User Group 

John Robinson 

66 Landrace Cres. 

Dartmouth, Nova Scotia 

Canada B2W 2P9 

902/434-1524 


Sarnia Commodore-64 User 
Group 

Susan Timar 

1122 Wilson Dr. 

Sarnia, Ontario, 

Canada N7S 3J6 

519/542-2534 


Toronto PET Users Group 

1912A Avenue Rd., Suite 1 

Toronto, Ontario, 

Canada M5M 4A1 

416/782-9252 

BBS 416/223-2625 (7:30 p.m.-9:00 
a.m. Eastern Time) 


Utilisateurs De Commodore 
(Commodore User Group) 

PO. Box 685 STN. H 

Montreal, Quebec, 

Canada H3G 2MG 


Vancouver Commodore User 
Group 

Chris Brown 

Canada 

503/573-8489 


CONNECTICUT 


Commodore Users 
Christopher D. Roberts 
PO. Box 1213 

Stratford, CT 06497 
203/378-8258 


Computer Users Group 
Liz Rafalowsky 

Halls Hill Rd. 
Colchester, CT 06415 
203/537-2117 


New London Area Commodore 
Users 

Robert Kind 

PO. Box 1608 

Groton, CT 06340 

203/887-0238 


VIC User Group 
Carol Doyle 

1070 5. Colony Rd. 
Wallingford, CT 06492 
203/269-7595 


ENGLAND 


PET User Group 

Barry Miles 

Polytechnic of North London- 
Holloway Rd. 

London, England М7 8DB 


FLORIDA 


Bits and Bytes Computer Club 
Frank H. Topping 

1859 Neptune Dr. 

Englewood, FL 33533 
813/474-6359 


Brandon User Group 
Paul Daugherty 

108 Anglewood Dr. 
Brandon, FL 33511 
813/685-5138 


Central Florida Commodore User 
Club 

Stephen K. McHaney 

РО. Box 15949 

Orlando, FL 32858 

305/298-4709 


Central Florida Commodore User 
Group 

Earl Preston 

6321 Ridgeberry Dr. 

Orlando, FL 32811 


Commodore Computer Club 
Chuck Fechko 

PO. Box 21138 

St. Petersburg, FL 33742 
813/391-5219 

BBS 5-10 p.m. 7 days a week 


Commodore Computer Club 
David Phillips 

PO. Box 9726 

Jacksonville, FL 32208 
904/764-5457 


Commodore Users Group of 
Tallahassee 

Dave Lan: 

2501 Debden Ct. 

Tallahassee, FL 32308 

904/893-6749 


El Shift О (VIC 20/64 Commodore 
Users) 

Mike Schnoke 

PO. Box 548 

Cocoa, FL 32922 


Gainesville Commodore User 
Group 

Louis Wallace 

PO. Box 14716 

Gainesville, FL 32604 


Gulf Coast Computer Club 
Jim Johnson 

131 Fox Run 

Port Richey, FL 33568 
813/863-7954 


Miami 64 User Group 
Dr. Eydie Sloane 

PO. Box 561689 
Miami, FL 33256 
305/274-3501 


OTog Users Group for 
ommodore 64 VIC 20 Users 

Dax Tacey 

321 Alma St. 

Kissimmee, FL 32741 


VIC/64 Heartland User Group 
Tom Keough 

1220 Bartow Rd. #23 
Lakeland, FL 33801 
813/666-2132 


GEORGIA 


C.C.S. User Groups 
Chuck Morris 

РО. Box 656 
Newman, GA 30264 


Commodore User Group of 
Augusta 

David A. Dumas 

1011 River Ridge Rd. Apt. 14-A 

Augusta, GA 30909 

404/738-7223 


Data Swappers 

Billy Peeples 

1773B Alabama Ave. 
Albany, GA 31705 
912/431-0031 


Liberty Commodore Users Group 
Jeannette Burger 

РО. Box 973 

Hinesville, GA 31313 
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Middle Georgia Commodore User 
Grow 

Anthony “Jim” Hornick 

510 Forest Lake Drive 

Warner Robins, GA 31093 

912/922-7876 


VIC Educators User Group 
Dr. Al Evans 

Cherokee County Schools. 
110 Academy St. 

Canton, GA 30114 


HAWAII 


20/64 Hawaii 

Т.А. Clay 

98-487 Koauka Loop Apt. 804 
Aiea, HI 96701 


20/64 Hawaii 
Wes Goodpastor 
PO. Box 966 
Kailua, HI 96734 


Commodore User Group of 
Honolulu 

Jay Calvin 

1626 Wilder #701 

Honolulu, HI 96822 

808/944-9380 


IDAHO 


Commodore User Group 
Leroy Jones 

548 É. Center 

Pocatello, ID 83201 
208/233-4294 


S.R.H.S. Computer Club 
Barney Foster 

Salmon River High School 
Riggins, ID 8354 


ILLINOIS 


ASSM/TED User Group 
Brent Anderson 

200 5. Century 

Rantoul, IL 61866 
217/893-4577 


Bloomington-Normal 
Commodore User Group 
(BNCUG) 

Debra A. Landre 

PO. Box 1058 

Bloomington, IL 61702 

309/454-1061 


Commodore 64 User Group 
Gus Pagnotta 

PO. Box 572 

Glen Ellyn, IL 60137 
312/790-4320 


Fox Valley PET User Group 
Art Dekneef 

833 Willow 

Lake in the Hills, IL 60102 
312/658-7321 


PAPUG Peoria Area PET Users’ 
Grow 

Max Taylor 

800 SW Jefferson St. 

Peoria, IL 61605 

309/673-6635 


PET VIC Club (PVC) 
Paul Schmidt 

405. Lincoln 
Mundelein, IL 60060 


312/566-8685 


Regional Association of 
Programmers (RAP 64/20) 

Gene A. Meyers 

7358 W. 108th РІ. 

Worth, IL 60482 

312/448-0485 


Southern Illinois Commodore 
User Club 

David E. Lawless 

1707 E. Main St. 

Olney, IL 62450 


The Kankakee Hackers 
Rich Westerman 

RR #1, Box 279 

St. Anne, IL 60964 
815/933-4407 


VIC-20 Commodore-64 User 
Support Group 

David R. Tarvin, Sr. 

114 5. Clark St. 

Pana, IL 62557 

217/562-4568 


Western Illinois PET User Group 
(WIPUG) 

Edward L. Mills 

Rt. 5 Box 75 

Quincy, IL 62301 

217/656-3671 


INDIANA 


Commodore Computer Club 
John Patrick 

3814 Terra Trace 

Evansville, IN 47711 
812/477-0739 


Commodore Hardware User 
Group (C*H*U*G) 

Tim Renshaw 

9651 E. 21st St. 

Indianapolis, IN 46229 

317/899-2003 


Commodore User Group/ 
The National Science Clubs of 
America-Commodore Users 
Division 

Brian Lepley 

7704 Taft St. 

Merrillville, IN 46410 


Louisville Users of Commodore 
of KY (LUCKY) 

Melanie A. Roesser 

127 Locust St. 

Jeffersonville, IN 47130 


Manchester User Group (MUG) 
Richard M. Bellows 

606 E. Ninth St. 

N. Manchester, IN 46962 


Northern Indiana Commodore 
Enthusiasts (NICE) 

Eric Bean 

927 S. 26th St. 

South Bend, IN 46615 

219/288-2101 


The CBM 64 Club 

Jim Colyer 

4755 Kinser Pike 
Bloomington, IN 47401 
812/332-6645 


VIC Indy Club 

Fred Imhausen 

PO. Box 11543 
Indianapolis, IN 46201 
317/357-6906 


Western Indiana Commodore 
Users (W.I.C.U.) 

Dennis C. Graham 

912 South Brown Ave. 

Terre Haute, IN 47803 

812/234-5099 


IOWA 


Commodore Computer User 
Group of Iowa 

Curtis L. Shiffer 

PO. Box 3140 

Des Moines, IA 50316 

515/282-1388 


COUGAR (COmmodore Users 
Group Ames Region) 

Perry Hansen 

662 Pammel Ct. 

Ames, IA 50010 

515/296-2181 


Quad City Commodore Computer 
Club 

John N. Yigas 

1721 Grant St. 

Bettendorf, ТА 52722 

319/355-2641 


Siouxland Commodore Club 
Gary Johnson 

2700 Sheridan St. 

Sioux City, IA 51103 
712/258-7903 


KANSAS 


Commodore User Group of 
Wichita Inc. 

Walter Lounsberry 

Rt. 1, Box 115 

Viola, KS 67149 

316/545-7460 


Strictly VIC Users Group 
Lloyd D. Pitchford 

RO. Box 66 

Sedgwick, KS 67135 


KENTUCKY 


Bowling Green Commodore 
Users Group 

Alex Fitzpatrick 

Rt. 11, Creekside Apt. #6 

Bowling Green, KY 42101 

502/781-9098 


The Commodore Connection 
Jim Kem 

1010 S. Elm 

Henderson, КҮ 42420 
502/827-8153 


LOUISIANA 


Ark-La-Tex Commodore 64 Club 
Pete Whaley 

198 India Dr. 

Shreveport, LA 71115 
318/797-9702 


C-64 Club of Baton Rouge 
Tommy Parsons 

5551 Corporate Blvd. Suite 3L 
Baton Rouge, LA 70808 
504/766-7408 


Commodore PET User Group 
Wayne Lowery 

616 N. Niagara Circle 

Gretna, LA 70053 
504/821-8436 
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Commodore User Group of Ovachita 
Beckie Walker 

PO. Box 175 

Swartz, LA 71281 

318/343-8044 


Sixty Four "ЕМ 

Dennis Dillenkoffer 
4559 Cerise 

New Orleans, LA 70127 
504/244-0237 


The VIC/64 Connection 
Ronnie Romero 

PO. Box 1322 
Abbeville, LA 70511 
318/898-0635 


MAINE 


So. Me.-64 

Ed Moore 

10 Walker St. 
Portland, ME 04102 


VIC and Commodore Users of 
Maine (V.A.C.U.M.) 

Pat Young 

RFD 1, Box 103 

Ellsworth, ME 04605 


MARYLAND 


Capitol Area PET Enthusiasts 
(VIC-20) 

William Spillane 

РО. Box 1602 

Rockville, MD 20850 

301/340-7417 


Compucats’ Commodore 
Computer Club 

Betty Schueler 

680 W. Bel Air Ave. 

Aberdeen, MD 21001 

301/272-4195 

or 272-0472 


Hagerstown User Group 
(HUG Хх) 

Joseph Rutkowski 

23 Coventry Ln. 

Hagerstown, MD 21740 

301/797-9728 


Long Lines Commodore Club 
Tom Davis 

323 N. Charles St. Room 201 
Baltimore, MD 21201 
301/547-2566 


Parklawn VIC-20 C-64 User Club 
Dr. S. R. Joshi 

6001 Poindexter Ln. 

Rockville, MD 20852 
301/443-4300 


Rockville VIC/64 Users Group 
Thomas L. Pounds 

РО. Box 8805 

Rockville, MD 20856 
301/231-7823 


VIC and 64 User Group 
Tom Deriggi 

21000 Clarksburg Rd. 
Boyds, MD 20841 
301/428-3174 


Westinghouse Friendship Site 
Commodore Users Group 

Lee Barron 

РО. Box 1693 

Baltimore, MD 21203 

301/765-7631 

(c/o Westinghouse Electric Corp.) 


Woodlawn 20/64 Computer Club 
George Towner 

1712 Aberdeen Rd. 

Baltimore, MD 21234 
301/608-7867 


MASSACHUSETTS 


Boston Commodore Users, c/o 
The Boston Computer Society 

Three Center Plaza 

Boston, MA 02108 

617/367-8080 


Commodore 64 User Group of the 
Berkshires 

Ed Rucinski 

184 Highland Ave. 

Pittsfield, MA 01201 


Eastern Mass VIC-20 User Group 
Frank Ordway 

6 Flagg Rd. 

Marco MA 01752 
617/485-4677 


MASSPET Commodore User 
Group 

David Rogers 

PO. Box 307 

East Taunton, MA 02718 

617/823-1974 


Needham Area VIC-20 User 
Group (VICHAM) 

Ilene Hoffman-Sholar 

366 Hunnewell St. 

Needham, MA 02194 


MEXICO 


SIGMA 

Orvananos Enrique 

Holbein No. 174-6 Col. Napoles 
03710, 

Mexico, О.Е 

563-03-05 


MICHIGAN 


Commodore Computer Club 
John R. Walley 

4106 Eastman Rd. 

Midland, MI 48640 
517/835-5130 


Commodore Computer Club of 
Toledo 

Gerald W. Carter 

734 Donna Dr. 

Temperance, MI 48182 

313/847-0426 


DAB Computer Club 
Dennis Burlingham 
PO. Box 542 
Watervliet, MI 49098 
616/463-5457 


DUC-Durand Users Club 
(VIC-20/64) 

John Davis 

6780 S. Byron Road 

Durand, MI 48429 

517/288-4566 


Jackson Commodore Computer 
Club 

Alfred J. Bruey 

201 S. Grinnell St. 

Jackson, MI 49203 


South Computer Club 
Ronald Ruppert 

South Junior High School 
45201 Owen 

Belleville, MI 48111 


Southeast Michigan PET User 
Group (SEMPUG) 

Norm Eisenberg 

32800 W. 12 Mile Rd. 

Farmington Hills, MI 48018 


University of Michigan VIC-20 
and C-64 User Group 

John J. Gannon 

School of Public Health-Univ. of 
Mich. 

Ann Arbor, MI 48109 


VIC 20 Mail Club 
David Koski 
51074 Mott #11 
Canton, MI 48188 


VIC for Business 
Mike Marotta 
6027 Orchard Ct. 
Lansing, MI 48910 
517/394-2345 


MINNESOTA 


Minnesota Users of PET 
(MUPET) 

Jon T. Minerich 

PO. Box 179 

Annandale, MN 55302 

612/963-5056 


MISSOURI 


Association of Commodore User 
Groups (ACUG) 

Tony Ott 

10378 Coburg Lands 

St. Louis, MO 63137 

314/867-0016 

BBS 867-6950 


Joplin Commodore Computer 
User Group 

R. D. Connely 

422 S. Florida Ave. 

Joplin, MO 64801 


Kansas City PET User Group 
(KCPUG) 

Rick West 

РО. Box 36492 

Kansas City, MO 64111 

816/252-7628 

BBS 257-2502 


Mid-Missouri Commodore User 
Club 

1804 Vandiver Dr. 

Columbia, MO 65202 

314/474-4511 


Northland Amateur Radio 
Association 

Alan Boyer 

528 Skyline Dr. 

Liberty, MO 64068 

816/781-6987 


The Commodore User Group of 
St. Louis, Inc. 

Dan Weidman 

РО. Box 6653 

St. Louis, MO 63125 

314/968-4409 
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NEWS& 
PRODUCTS 


New Printer From 
Commodore 


Commodore has released a new 
printer, the MPS-801, which will 
replace the 1525. According to a 
source at Commodore, the MPS- 
801 is slightly faster than the 
1525, features a cartridge ribbon, 
paper advance knob and button, 
and supports full-size paper. 
The printer also includes two 
serial ports to enable daisy chain- 
ing, and the printing mechanism 
has been relocated for a quieter 
sound. Price was not set at press 
time. 


Quick Reference 
Guides For 
VIC And 64 


John Wiley & Sons has published 
Quick Reference Guides for the 
VIC, 64, and Timex 1000 com- 
puters, similar to the guides the 
company previously published 
for the IBM PC, Apple II, and 
Atari 800. 

The 6 x 12-inch four-panel 
guides list and define such items 
as BASIC statements, system 
controls, memory statements, 
video and graphic controls, and 
other topics. 

The guides are available for 
$2.95 each. 

John Wiley & Sons, Inc. 

605 Third Avenue 

New York, NY 10158 

(212) 850-6000 
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VIC-20 Typing 
Tutorial 


Mastertype, a typing tutorial from 
Bróderbund, is now available for 
the VIC-20 in a cartridge format. 

The tutorial consists of 18 
progressive lessons set within a 
game format. You defend a 
spaceship from a barrage of let- 
ters or words by correctly typing 
them as rapidly as possible. 

Lessons may be saved on 
either disk or cartridge for future 
use. Included are an illustrated 
instruction manual, hints for 
winning the game, and direc- 
tions for creating your own cus- 
tomized lessons to improve 
typing and spelling. 

The VIC-20 cartridge version 
of Mastertype sells for $39.95. 
Bréderbund Software, Inc. 

17 Paul Drive 
San Rafael, CA 94903 
(415) 479-1170 


Twin-Disk 
Adventure 
Game For 64 


Cyberworld, a two-disk, interac- 
tive keyboard/joystick adventure 
game for the Commodore 64, 
has been produced by Progres- 
sive Peripherals & Software. 

The player's mission is multi- 
layered, set on the planet Cyber, 
and includes full use of the 64’s 
sprite capabilities. There are 


three subadventures, which 
begin with the hijacking of a 
Drokon warship and advance to 
a defense of the planet. The final 
mission is a hunt-and-tracking 
game. 

Available only on diskettes, 
the program is available for 
$39.95. 

Progressive Peripherals & Software 
2186 South Holly, Suite 2 

Denver, CO 80222 

(303) 759-5713 


Music, Business, 
Personal 
Programs For 64 


M'Soft has developed several 
new programs for the Commo- 
dore 64 on disk. 

Smart ($79.95) features five 
different programs, all of which 
load from one main menu: word 
processing, money manage- 
ment, amortization, record keep- 
ing, and time management. 

Wallstreet Microscope ($99.95) 
offers price and financial analysis 
of common stocks, with each 
stock rated against ten criteria. It 
is available with a ten-year his- 
tory of Fortune 500 companies. 

Musicwriter-64 ($69.95) is a 
music-composing, editing, and 
playing program that also prints 
sheet music for compositions 
created using the system. 

Double E Electronics 
12027 Pacific Street 
Omaha, NE 68154 
(402) 334-7870 


Computa-Law 
Legal Agreements* 


For Your 


COMMODORE 64 
VIC 20 (16k) 


ЇВМ-РС  (r.) 


Just answer the questions & your 
computer & printer does the rest! 
Simple Will 
Agreement of Sale - Real Estate 
Agreement of Sale - Goods 
Lease - Residential 
Lease - Commercial 
Power of Attorney 
Employment Contract 
Promissory Note 
Partnership Agreement 
Computer Software Contract 
Computer Hardware Contract 
Pre-Nuptial Agreement 
Separation Agreement 
Construction Contract 
General Release 
For informational purposes only 
not intended as a substitute for legal advise. 


Guaranteed to work on your printer. 


H $19.95 Each Program (Cassette) 

$24.95 Each Program (Disk) 

Add $1.50 postage & handling. 

65 Other Business & Home Programs 
also available 


FREE CATALOG 


LEGAL BYTE SOFTWARE 
Box 579, Gwynedd Valley, PA 19437 
(215) 643-7666 (609) 424-5485 


The Banner Machine™ 

For the Commodore 64 (3 extra fonts available). 
For the VIC-20 with 24K memory (2 extra fonts 
available). * Use on any Gemini or Epson MX with 
Graftrax or the FX and RX printers. Also Commo- 
dore 1595E and Banana with the C64. • Menu- 
driven program operates like a word processor. • 
Makes signs up to 13" tall by any length. * Makes 
borders of widths up to 34". • 8 sizes of letters 
from 24" to 8^ high. * Proportional spacing; Auto- 
matic centering; Right and left justifying, • 549.95 
Tape or Disk (Specify computer equipment) 

For the Commodore 64: 

Home Finance Manager Keep detailed records of 
tax deductions, bank payments, monthly charges, 
individual item expenses, and checks. Store more 
than 900 transactions per month. $39.95 

CTRL-64 Permits listing of C-64 programs on non- 
Commodore printers. Lists control symbols in 
readable form. Tape or disk $94.95 

Microbroker Exciting, realistic and educational 
stock market simulation. 534.95 Tape or Disk 
Preschool Educational Programs ABC Fun; 193 Fun; 
and Ginger the Cat with: Addition and Subtraction, 
Number Hunt, and Letter Hunt. All 5 programs 
have bright color, music, and action. Each $14.95 
Formulator A scientific calculator for tasks which 
require repetitive arithmetic computations. Save 
formulas and numeric expressions. $39.95 

Grade Organizer Teachers—store grades for 6 
classes, up to 40 students each, 680 grades per 
student. Print interim and final reports, class 
rosters, and more! Disk $39.95 


se Cardinal Software" 


Virginia Micro Systems, 13646 Jeff 
Davis Hwy., Woodbridge, УА 99191 
Phone (703) 491-6502 
Ask for our free catalog 
Commodore 64 and VIC-20 are registered 
trademarks of Commodore Electronics Ltd. 


For VIC - 20 / COM - 64 


MICRODIGITAL 

ARCADE GAMES VIC 64 
Skramble (T) (exciting) 1075 1275 
Gridder (T) (grid chase) 1075 1275 
Snakman (T) (pac man) 1075 1275 
Pinball Wizard (T) 1075 1275 
PRACTICALC PLUS(16K)T) 43.95 43.95 
Temple of Apshai (16K) (T) 2750 27.50 
Sword of Fargoal (16K) (Т) 2180 МА 


(CALL FOR DISK PRICING) 
MEMORY 


1 6K EXPANSION 
ONLY $4955 


ж 14 Day Money Back Guarantee 
Ж Boosts VIC to 21K RAM 

* Top Quality, Fully Tested 

* 90 Day Warranty 


for IMMEDIATE SHIPMENT 
on Credit Card Orders 


Call: (303) 245-9012 
10 AM - 9 PM MST Every Day 


ASSEMBLY TECHNOLOGY 
2692 Hwy 50 Suite 210 
Grand Junction, CO 81503 


Personal checks allow 3 weeks 
Shipping & handling $2.50 


Colorado Residents add Sales Tax 
ез COD add 52.00 = 


COMPUTER 


DISCOUNT 


TOLL FREE 1-800-621-6131 FOR ORDERS 
4251 W. Sahara Ave., Suite E Las Vegas, Nevada 89126 
MONDAY THROUGH SATURDAY @ 9 AM TO 6 PM 


Paper Clip w/p 
Calc Result. 
Sysres-Utility 
Renaissance .... 


Datasette 


1311 Joystick 
1312 Paddles 


1541 Disk Drive 
152EE Printer 
1600 Phone Modem 


HARDWARE 
C. Itoh Prowriter. . 
Nec. 8023A 

Banana Printer 
Hayes 1200 Modem 


COMM. 64 DISK 


Temple Of Apshai 
Upper Reaches Apshai . 


... $379 


Frogger 
Jawbreaker. 

Ft. Apocalyse 
Pharoh’s Curse 
Starter Pack D/C 
Word Machine 
Pet Emulator 
Gen Ledger 
Mail List Mgr. 
Hes 6502 .. 


New Educational Programs 


Purchases can be made by check, money order, C.O.D. 
Carte Blanche and Diners Club. 1-702-367-2215 


From the leading supplier of Computer Cassettes, 
new, longer length C-12's (6 minutes per side) provide 
the extra few feet needed for some 16K programs. 


e BASF-LHD (DPS) world standard tape. 
Premium 5 screw shell with leader. 


СЭ Error Free • Money back guarantee. [ 
> Call: 213/700-0330 toc IMMEDIATE SHIPMENT on Credit Card Orders 


об 19" WORK IO 55, 


-.. MAIL TO. 


CADDY with every 4 daz 
cassettes purchased. 

|405 not apply to 500 quantity оны) 
Each cassette includes 

2 labels only. Boxes 

sold separately. In Cont. 
U.S. shipment by U.P. I 
If Parcel Post preferred, П 


check here. C] 
500 c-12' 
[eoru rera tary өмгну 3150] o … 
i s 
dor cassettes or boxes” / shipping 
gL OTA ра, Cady otter does not apply) 
р Check or МО. enclosed С] _ Send Quantity Discounts С) 6 
Charge to credit card: VISA Г] MASTERCARD O 
ШЕТІ SE ( 
1 
[| 
Г] 
Voy ыле smezp- 
! Signature —__________ Phone Sj 
I Computer таке & model — = О (nie ca 
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Software Discounters 


of 
America 


1-800-225-SOFT 
P.O. Box 278-Wildwood, PA 15091 
In РА (412) 361-5291 


Commodore 64 Software 
Artworx 
Strip Poker (D) 
Gwendolyn (D NN DE IES à 
Broderbund 
Bank St Writer (D). . 
Choplifter(CT) . . 
Loderunner(D) . . 
Cardco 
CABBIE ПИ fo otc ME 
ck/1 Keypad 
Datasoft 
O'Riley's Mine (D) 
Pooyan (T/D) 


Epyx 
Jumpman (D) 


Pitstop (CT) Sen 
Temple of Apshai (Т or D) 
HES 

Omnicalc (D) 

Multiplan (D) 


Infocom 
Enchanter(D) ... 
Infidel(D) .... 
Planetfall(D).... 


Koala 

Touch Tablet w/Koala Painter 
Muse 

Castle Wolfenstein (D) 

Super Text Professional (D) 
Sierra-On Line 

Frogger (T or D) 
Homeword (D) 

Quest For Tires(D)..... 


Spinnaker 

Alphabet Zoo (CT) 

Kids on Keys (CT) 
Kindercomp (CT) 

Trains (D) 

Synapse 

Blue Max(TorD) .... 
Morgol (T or D) 

Pharoah's Curse (T or D 
Shamus Case II (T or D) 
Timeworks 

Data Manager (T or D) 
Money Manager (T or D) .. 
Programming Kit (1,2,0r 3) 
Accessories 

Alien Group Voice Box 
BASF SS,DD (Box of 10) . 
Disk Drive Cleaning Kit . 
Dust Cover 64 or 1541 .. 
Gusdorf Computer Table 
Monitor Cable 
Multiple Outlet Strip 

Sakata 13” Composite Color . 
Wico-Boss 
Wico-Red Ball 
Wico-3 way 
*This Is just a small selection of what we 
stock. Call for our free catalog! 

Ordering & Terms: Orders with cashier check or 
money order shipped immediately. Personal/Co 
checks-allow 3 weeks clearance. VISA/MASTERCARD 
accepted with no additional charge. Shipping: Orders 
under $100 add $3; free shipping on orders over $100. 
PA. residents add 6% sales tax. Returns: Defective 
merchandise will be replaced with same merchan 
dise—no credits! Returns must have authorization 
number (412-621-1537). Prices subject to change 
without notice. 
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NEWS&PRODUCTS 


VIC And 64 
Spreadsheet 


BEC, a spreadsheet analysis pro- 
gram for the entrepreneur, has 
been developed by Lawco, Ltd., 
for the VIC and 64. 

The program computes the 
break-even point for new prod- 
ucts by using the product’s 
expense data. It also uses the 
product's sales price to compute 
a break-even sales quantity or 
the quantity produced to figure 
a break-even sales price. 

Total fixed costs, total vari- 
able costs, and sales revenue at 
the break-even point are also 
computed. Multiple break-even 
points can be produced by vary- 
ing the sales price, the produc- 
tion quantity, and/or the cost 
figures. 

BEC is available at $79.95 on 
tape and $89.95 on disk. 

Laco, Ltd. 

P.O. Box 1337 
Cupertino, CA 95015 
(408) 733-0739 


Action Game 
For 64 With 
Disk Drive 


Crazy Conveyors, produced by 
Bytes and Bits, is a machine 
language action game for the 
Commodore 64 with disk drive. 
The game uses multicolor 
sprites, custom characters in 11 
different colors for building 
blocks, ladders, fire poles, ro- 
tating pulleys, moving con- 
veyors, and bonus boxes. Crazy 
Conveyors also uses three-part 


harmony and is playable with 
joystick or keyboard. 

The game contains the 
Screen Creator which expands 
the game disk and other disks 
for additional screens. 

The price for the game is 
$29.95. 

Bytes and Bits 

524 East Canterbury Lane 
Phoenix, AZ 85022 

(602) 942-1475 


Cassette Copier 
For VIC And 64 


T & M Products has produced a 
Data Cassette Copier, which 
allows all cassettes to be dupli- 
cated by interfacing two Datas- 
sette recorders with a Commo- 
dore 64 or a VIC-20 computer. 

The Data Copier will dupli- 
cate all programs and load 
machine language programs 
without using VICMON. A 
Micro-speaker plus LED allows 
you to monitor the data by sight 
and sound. 

The Data Copier is available 
for $24.95 plus $2 shipping and 
handling. Power is supplied by 
the computer at the cassette port, 
so no batteries are required. 

T & M Products 
HO Ба ШИ? 
De Soto, TX 75115 


Math Drill 
Program 


Let's Learn Math, a menu-driven 
addition and subtraction drill 
program for the Commodore 64, 


has been released by Micro- 
Systems Software. 

The program has four levels 
of difficulty and is designed for 
youngsters age 6 to 12. All prob- 
lems are solved column by col- 
umn. The need for pencil and 
paper is eliminated. Right and 
wrong answers are flagged, and 
the correct answer is displayed if 
the entry was wrong. At the end 
of each session, a report of the 
number of correct and incorrect 
entries is displayed. 

Let's Learn Math is available 
on tape for $12.95. 

Micro-Systems Software 
4017 Adams #263 
Indianapolis, IN 46205 


COMPUTE!'s GAZETTE welcomes 
announcements of new products for 
VIC-20 and Commodore 64 computers, 
especially products aimed at beginning 
to intermediate users. Please send press 
releases and photos well in advance to: 
Tony Roberts, Assistant Managing 
Editor, COMPUTE's GAZETTE, 
P.O. Box 5406, Greensboro, NC 27403. 


New product releases are selected from 
submissions for reasons of timeliness, 
available space, and general interest to 
our readers. We regret that we are unable 
to select all new product submissions for 
publication. Readers should be aware 
that we present here some edited version 
of material submitted by vendors and are 
unable to vouch for its accuracy at time of 


publication. @ 


VIC 20™/COMMODORE 64™ 


CRAZY CONVEYORS™-combines the powerful capabilities of 
Commodore 64 with disk drive in an exciting action-packed g 
with multi-color sprites. custom characters in 11 differ 


building blocks. ladders, fire poles, rotating 
conveyors and bonus boxes. three part harmo 
history, wit 


full names of 10 champioi 
screen of your choice б 
Screen Creator™ to е 


id game disk 
CRAZY CONVEYOR acti 


challenge the most skillful game player Price: $29.9! 
RIDGE RUNNER-for unexpanded VIC 20 on tape or disk. 100% 
machine language. Includes multicolor UFO. blinking mines 
spinning asteroids. enemy ships. laser fire. horizontally scrolling 
playfield. hi-resolution/multicolor graphics. excellent sound. high 
score, pause button, bonus ships and ever increasing levels ol 
difficulty. Joystick required, Price: $14 95 
DUNGEONS-tor VIG 20 with 16K expansion and tape or disk 
a 12 level dungeon with 1200 rooms. Purchase weapon and 

es. battle over fifty monsters. cas 


disk. Excellei and three dime! 


INVESTMENT PORTFOLIO MANAGER-ior Commodore 4 
drive or tape (print 
summary page and 
entries of up 10 $99.999 
million. The IPM 15 quick 
such as stocks 1 
grand total and 1 ercent af grand total for each of nine in 
categories. Price $14.95 

DISK DIRECTORY MANAGER-lor Commodore 64 or VIC 20 (16K min 
exp.) with 41 disk drive and 1525 printer 100% machine 
language. This handy utility reads à 

up 10 1556 records on the 


SEND FOR FREE CATALOG! 
BYTES and BITS 


524 E. Canterbury Ln. 
Phoenix. AZ 85022 


(602) 942-1475 


Please specify tape or disk 


Check. money order or C.0.D. 
Add $2.00 for postage & handling 
Additional $3.00 for С.0.0 


VIC 20 & Commodore 64 are trademarks of Commodore Electronics Ltd. 
CRAZY CONVEYORS and Screen Creator are trademarks of BYTES and BITS 


SmartVoice™ 


NEW 


A breakthrough in voice technology for the 
Vic 20 and Commodore 64 computers. This 
unit is not just another voice synthesizer. 
The quality is fantastic and it requires no 
peeks, no pokes. no phonemes. no interface 
cables. no power cords. no text editors or 
programs of any kind, and installs in just 2 
seconds. Say anything you like with simple 
print statements, such as: 

PRINT #2, "MY МАМЕ IS SMARTVOICE" 
That is all there is to it. You can talk fast or 
slow, use 63 pitch levels, create sound 
effects, sing songs, use automatic inflection 
and monotone modes, control volume by 
program or external knob. and more. A 
detailed user manual with demonstration 
programs included. Models for other 
computers also available. 

COST: $199 Add 4% S&H on MC or VISA orders 

Ohio residents add 5% Sales Tax 


USER FRIENDLY SYSTEMS INC. 
6135 Ross Road Fairfield, Ohio 45014 
(513) 874-4550 


Vic 20 and Commodore 64 trademarks of Commodore Electronic: Ltd 


NEW! 
Universal Input/Output 
Board for VIC-20/64 


16 channel 8-bit A/D converter with 100 
microsecond sampling time. 

1 D/A output. 

16 high voltage/high current discrete out- 
puts. 

1 EROM socket. 

Use multiple boards for additional channels 
up to 6 boards. 


VIC-20 uses MW-311V $205.00 
CBM-64 uses MW-311C .... $225.00 


MW-302: VIC-20/64 
Parallel Printer Interface. 


Works with all centronics type parallel 
matrix & letter printers and plotters— 
Epson, С.Шоһ, Okidata, Nec, Gemini 
10, ТР-! Smith Corona, and most 
others. Hardware driven; works off the 
serial port. Quality construction: Steel 
DIN connectors & shielded cables. Has 
these switch selectable options: Device 
4, 5, 6 or 7; ASCII or PET ASCII; 7-bit 
or 8-bit output; upper & lower case or 
upper only. Recommended by PRO- 
FESSIONAL SOFTWARE for WordPro 
3 Plus for the 64, and by City Software 
for PaperClip. 


$ 119.95 


Dealer 
inquiries invited. 


== 


Micro World Electronix, Inc. 
3333 S. Wadsworth Blvd. #C105, 
Lakewood, CO 80227 

(303) 987-9532 or 987-2671 


COMPUTE!'s Gazette Back Issues 


JULY 1983: Commodore 64 Video Update, 
Snake Escape, Alfabug, VIC Marquee, 

Word Hunt, VIC Timepiece, product reviews, 
Learning To Program In BASIC, Quickfind, 

64 Paddle Reader, Machine Language For 
Beginners, Enlivening Programs With 

Sound, Using Joysticks On The 64, Simple 
Answers To Common Questions, VICreations 
— Speedy Variables, 64 Explorer. 


AUGUST 1983: Your First Hour With A 
Computer, Should You Join A Users Group?, 
Guide To Commodore Users Groups, The 
Viper, Cylon Zap, product reviews, VIC/64 
Mailing List, Word Spell, Global Scan For 
VIC/64, Machine Language For Beginners, 
VIC Title Screens, 64 Hi-Res Graphics Made 
Easy, VIC/64 Four-Speed Brake, Disk Menu, 
Using A 1540 Disk Drive With The 64, Playing 
Computer Music, Simple Answers To Com- 
mon Questions, HOTWARE, VICreations — 
Caring For Disk Drives/Cassettes, 64 
Explorer, News & Products. 


OCTOBER 1983: The Anatomy of Com- 
puters, Telegaming Today And Tomorrow, 
Commodore's Public Domain Programs, Oil 
Tycoon, Re-Beep, product reviews, Aardvark 
Attack, Word Match, A SHIFTy Solution: 
The WAIT Command, Program Transfers, 
Machine Language For Beginners, Improved 
Paddle Reader Routine, How To Use Tape 
And Disk Files, Understanding 64 Sound — 
Part 1, Speeding Up The VIC, Simple 
Answers To Common Questions, HOTWARE, 
Horizons 64 — Improving 64 Video Quality, 
VICreations — Using The VIC's Clock, News 
& Products. 


DECEMBER 1983: A Survival Guide For Be- 


ginners, Telecommuting: Dawn Of The Elec- 
tronic Cottage, The Inner World Of Com- 
puters — Part 2, Getting Started With A Disk 
Drive — Part 2, Spike, Space Duel, Bowling 
Champ, Saucer Shooter For The VIC-20, 
Budget Planner, The Note Name Game, 
Spelling Bee, Educational Games: A Kid's 
View, Disk File Manager, VIC Music Writer, 
Thinking, VIC Billboard, Tricks For Saving 
Memory, Easy Screen Formatting, Power 
BASIC: Foolproof Input For The VIC and 64, 
Sprites Made Easy, Sprite Creation On The 
64, Machine Language For Beginners, Simple 
Answers To Common Questions, HOTWARE, 
VICreations: Custom Characters On The Ex- 
panded VIC, Horizons 64, MLX — Machine 
Language Entry For The Commodore 64, The 
Beginner's Corner: Computer Choreography, 
Computing For Kids: Your Wish Is My Com- 
mand, The Automatic Proofreader. 


JANUARY 1984: Word Processing In The 
Home, SpeedScript Word Processor For VIC 
And 64, The Inner World Of Computers — 
Part 3, Getting Started With A,Disk Drive — 
Part 3, Cave-In For VIC-20, Hardhat Climber, 
Tetracrystals Of Veluria, Canyon Cruiser, 
Computing For Families: New Family 
Learning Games, 64 Electronic Notepad, 
Alpha-Shoot, The Beginner's Corner: Built- 
In Functions, Graph Plotter, 64 BASIC Aid, 
LIST Freezer, Machine Language For Be- 
ginners: Addressing, HOTWARE, VICrea- 
tions: Using The Dynamic Keyboard, 
Horizons 64, Simple Answers To Common 
Questions, The Automatic Proofreader, MLX 
— Machine Language Entry For The Commo- 
dore 64 And VIC-20. 


Back issues of July and August 1983 are $2.50 each. Issues from October forward are $3. Bulk 
rates are 6 issues for $15 or 12 issues for $30. All prices include freight in the U.S. Outside the 
U.S. add $1 per magazine order for surface postage. $4 per magazine for air mail postage. ALL 
BACK ISSUES ARE SUBJECT TO AVAILABILITY. 


In the continental U.S. call 
TOLL FREE 800-334-0868 
(in North Carolina call 919-275-9809) 


COMPUTE"'s Gazette for Commodore Back Issues 
P.O. Box 5406 
Greensboro, North Carolina 27403, USA 


Prepayment required in U.S. funds. MasterCard, VISA, and American Express accepted. 
North Carolina residents please add 4% sales tax. 


Or write to: 


А Beginner's Guide 
To Typing In Programs 


What Is A Program? 


А computer cannot perform any task by itself. 
Like a car without gas, a computer has potential, 
but without a program, it isn't going anywhere. 
Most of the programs published in COMPUTE/'s 
Gazette for Commodore are written in a computer 
language called BASIC. BASIC is easy to learn 
and is built into all VIC-20s and Commodore 64s. 


BASIC Programs 


Each month, COMPUTE! s Gazette for Commodore 
publishes programs for both the VIC and 64. To 
start out, type in only programs written for your 
machine, e.g., "VIC Version" if you have a VIC-20. 
Later, when you gain experience with your com- 
puter's BASIC, you can try typing in and converting 
certain programs from another computer to yours. 

Computers can be picky. Unlike the English 
language, which is full of ambiguities, BASIC usu- 
ally has only one "right way" of stating something. 
Every letter, character, or number is significant. A 
common mistake is substituting a letter such as 
“O” for the numeral "0", a lowercase “1” for the 
numeral “1”, or an uppercase “В” for the numeral 
^8". Also, you must enter all punctuation such as 
colons and commas just as they appear in the 
magazine. Spacing can be important. To be safe, 
type in the listings exactly as they appear. 


Brackets And Special Characters 
The exception to this typing rule is when you see 
the curved bracket, such as “{DOWN}”. Any- 
thing within a set of brackets is a special character 
or characters that cannot easily be listed on a print- 
er. When you come across such a special state- 
ment, refer to “How To Type In COMPUTE/'s 
Gazette Programs." 


About DATA Statements 


Some programs contain a section or sections of 
DATA statements. These lines provide information 
needed by the program. Some DATA statements 
contain actual programs (called machine language); 
others contain graphics codes. These lines are espe- 
cially sensitive to errors. 

If a single number in any one DATA statement 
is mistyped, your machine could "lock up,” or 
"crash." The keyboard and STOP key may seem 
“dead,” and the screen may go blank. Don't panic 
— no damage is done. To regain control, you have 


to turn off your computer, then turn it back on. 
This will erase whatever program was in memofy 
so always SAVE a copy of your program before you КЁ 
it. If your computer crashes, you can LOAD th 
program and look for your mistake. 


cause an error message when the program is RUN 
The error message may refer to the program line; 
that READs the data. The error is still in the DAT, 
statements, though. 


Get To Know Your Machine 


You should familiarize yourself with your come 
puter before attempting to type in a program. 
Learn the statements you use to store and retr 
programs from tape or disk. You'll want to save 
copy of your program, so that you won't have 
type it in every time you want to use it. Learn 
use your machine's editing functions. How dó 
you change a line if you made a mistake? You сай 
always retype the line, but you at least need to 
know how to backspace. Do you know how ЮЙ 
enter inverse video, lowercase, and control cha 
acters? It's all explained in your computer's 
manuals. 


А Quick Review 
1) Type in the program a line at a time, in orde 
Press RETURN at the end of each line. Use Бае 
space or the back arrow to correct mistakes. 74 
2) Check the line you've typed against the linéjn 
the magazine. You can check the entire program 
again if you get an error when you RUN the 77 
program. 
3) Make sure you've entered statements in brack d 
ets as the appropriate control key (see "How Тө; 
Type COMPUTEJ/'s Gazette Programs” «елі 
іп the magazine.) 4; 


We regret that we are not able to respond to individual 5 
inquiries about programs, products, or services ap- 
pearing in COMPUTE" s Gazette for Commodore 
due to increasing publication activity. On those in- 
frequent occasions when a published program contains 
a typo, the correction will appear in the magazine, 
usually within eight weeks. If you have specific 
questions about items or programs which you've seen 
іп COMPUTENs Gazette for Commodore, please 
send them to Gazette Feedback, P.O. Box 5406, 
Greensboro, NC 27403. 
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How То 


Type In 


COMPUTE's Gazette Programs 


Many of the programs which are listed in COM- 
PUTE!’s Gazette contain special control characters 
(cursor control, color keys, inverse video, etc.). 
To make it easy to know exactly what to type when 
entering one of these programs into your com- 
puter, we have established the following listing 
conventions. 

Generally, any VIC-20 or Commodore 64 
program listings will contain bracketed words 
which spell out any special characters: {DOWN} 
would mean to press the cursor down key. {5 
SPACES } would mean to press the space bar five 
times. 

To indicate that a key should be shifted (hold 
down the SHIFT key while pressing the other 
key), the key would be underlined in our listings. 
For example, S would mean to type the S key 
while holding the shift key. This would appear 
on your screen as a ”heart” symbol. If you find 
an underlined key enclosed in braces (e.g., {10 
N }), you should type the key as many times as 
indicated (in our example, you would enter ten 
shifted N’s). 

If a key is enclosed in special brackets, E3, 
you should hold down the Commodore key while 
pressing the key inside the special brackets. (The 
Commodore key is the key in the lower left corner 
of the keyboard.) Again, if the key is preceded by 
a number, you should press the key as many times 
as necessary. 

Rarely, you'll see a solitary letter of the al- 
phabet enclosed in braces. These characters can 
be entered on the Commodore 64 by holding down 


the CTRL key while typing the letter in the braces. 
For example, {A} would indicate that you should 
press CTRL-A. You should never have to enter 
such a character on the VIC-20, but if you do, you 
would have to leave the quote mode (press RE- 
TURN and cursor back up to the position where 
the control character should go), press CTRL-9 
(RVS ON), the letter in braces, and then CTRL-0 
(RVS OFF). 

About the quote mode: you know that you can 
move the cursor around the screen with the CRSR 
keys. Sometimes a programmer will want to move 
the cursor under program control. That's why 
you see all the {LEFT}’s, {НОМЕ}, and 
{BLU}’s in our programs. The only way the com- 
puter can tell the difference between direct and 
programmed cursor control is the quote mode. 

Once you press the quote (the double quote, 
SHIFT-2), you are in the quote mode. If you type 
something and then try to change it by moving 
the cursor left, you'll only get a bunch of reverse- 
video lines. These are the symbols for cursor left. 
The only editing key that isn't programmable is 
the DEL key; you can still use DEL to back up and 
edit the line. Once you type another quote, you 
are out of quote mode. 

You also go into quote mode when you IN- 
SerT spaces into a line. In any case, the easiest 
way to get out of quote mode is to just press RE- 
TURN. You'll then be out of quote mode and you 
can cursor up to the mistyped line and fix it. 

Use the following table when entering cursor 
and color control keys: 


When You Read: Press: See: When You Read: Press: See: When You Read: Press: ‘See: 
CLEAR} | SHIFT | | CLRIHOME E {сүм} far 4 b. £73 & Eg Е 

(HOME) [екноме | | (eur) em ][ 5 ЭШ ғ: e o ан 
uP} (85527 LET] {GRN} CTRL || 6 {F1 п ва 
DOWN) EET: (BLU) em. || 7 {F2 sum]| а ЕЛ 

{LEFT} нт | Б-сек-ә| (ver) ЕГЕ ШЕ {єз Го | = 
RIGHT) EB кз els EJ с“ энг] в ÁB 
RVS) em || >» #23 а [2 Ка - Ге) 
OFF} CTRL 9 ЕН £33 (Cs EB (r6 [sur] | 6 ЕМ 
BLK) CTRL 1 B £43 &la Ін ГЕ? 7 Ш 

(инт) CTRL 28 ІН £53 (С 2 E {ЕВ SHIFT f7 | ЕЗ 
RED} CTRL 3 £63 с Bl 
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МЇ, 


MLX is а labor-saving utility that allows almost 
failsafe entry of machine language programs pub- 
lished in COMPUTE!’s GAZETTE. You need to know 
nothing about machine language to use MLX—it 
was designed for everyone. There are separate 
versions for the Commodore 64 and expanded 
VIC-20 (at least 8K). MLX was conceived and writ- 
ten by Program Editor Charles Brannon. Important: 
MLX is required to type in the machine language 
programs in this issue. 


MLX is a new way to enter long machine language 
(ML) programs w Ath a minimum of fuss. МІХ lets you 
enter the numbers from a special list that looks similar 
to BASIC DATA statements. It checks your ty ping on a 
line-by-line basis. It won't let you enter illegal charac- 
ters when you should be typing numbers. It won't let 
you enter numbers greater than 255 (forbidden in ML). 
It won't let you enter the wrong numbers on the wrong 
line. In addition, MLX creates a ready-to-use tape or 
disk file. You can then use the LOAD command to read 
the program into the computer, as with any program: 


LOAD ”filename”,1,1 
LOAD "filename" ,8,1 


(for tape) 
(for disk) 

To start the program, you enter a SYS command 
that transfers control from BASIC to machine language. 
The starting SYS number always appears in the appro- 
príate article. 


Using MLX 


Type in and save the correct version of MLX for your 
computer (you'll want to use it in the future). When 
you're ready to type in an ML program, run MLX. 
MLX asks you for two numbers: the starting address 
and the ending address. These numbers are given in 
the article accompanying the ML program. 

You'll see a prompt corresponding to the starting 
address. The promptis the current line you are entering 
from the listing. It increases by six each time you enter 
a line. That's because each line has seven numbers—six 
actual data numbers plus a cliecksum number. The 
checksum verifies that you typed the previous six num- 
bers correctly. If you enter any of the six numbers 
wrong, or enter the checksum wrong, the computer 
rings a buzzer and prompts you to reenter the line. If 
you enter it correctly, a bell tone sounds and you con- 
tinue to the next line. 

MLX accepts only numbers as input. It you make 
a typing error, press the INST/DEL key; the entire 
number is deleted. You can press it as many times as 
necess he start of the line. If you enter 
three-digit numbers as listed, the computer automati- 
cally prints the comma and goes on to accept the next 
number. If you enter less than three digits, you can 


Machine Language 


Entry Program 
For Commodore 64 And VIC-20 


Charles Brannon, Program Editor 


press either the comma, SPACE bar, or RETURN key 
to advance to the next number. The checksum auto- 
matically appears in inverse video for emphasis. 


MLX Commands 


When you finish typing an ML listing (assuming you 
type it all in one session) you can then save the com- 
pleted program on tape or disk. Follow the screen 
instructions. If you get any errors while saving, you 
probably have a bad disk, or the disk is full, or you've 
made a typo when entering the MLX program itself. 

You don't have to enter the whole ML program in 
one sitting. MLX lets you enter as much as you want, 
save it, and then reload the file from tape or disk later. 
MLX recognizes these commands: 


SHIFT-S: Save 
SHIFT-L: Load 


SHIFT-N: New Address 
SHIFT-D: Display 

When you enter a command, MLX jumps out of 
the line you've been typing, so we recommend you do 
itata new prompt. Use the Save command to save 
what you've been working on. It will save on tape or 
disk as if you've finished, but the tape or disk won't 
work, of course, until you finish the typing. Remember 
what address you stop at. The next time you run MLX, 
answer all the prompts as you did before, then insert 
the disk or tape. When you get to the entry prompt, 
press SHIFT-L to reload the partly completed file into 
memory. Then use the New Address command to 
resume typing. 

To use the New Address command, press SHIFT-N 
and enter the address where you previously stopped. 
The prompt will change, and you can then continue 
typing. Always enter a New Address that matches up 
with one of the line numbers in the special listing, or 
else the checksum won't work. The Display command 
lets you display a section of your typing. After you 
press SHIFT-D, enter two addresses within the line 
number range of the listing. You can abort the listing 
by pressing any key. 

_ The special MLX commands may seem a bit con- 
fusing, but as you work with MLX, they will become 
valuable. For example, what if you forgot where you 
stopped typing? Use the Display command to scan 
memory from the beginning to the end of the program. 
When you reach the end of your typing, the lines will 
contain a random pattern of numbers. When you see 
the end of your typing, press any key to stop the listing. 
Use the New Address command to continue typing 
from the proper location. 

You can use the Save and Load commands to 
make copies of the completed program. Use Load to 
reload the tape or disk, then insert a new tape or disk 
and use Save to make a new copy. 

Be sure to save MLX; it will be used for future ML 
programs in COMPUTE's GAZETTE. 

See program listings on page 177. 
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The Automatic Proofreader 


“The Automatic Proofreader” will help you type in program 
listings from СОМРЦТЕ/8 Gazette without typing mistakes. It 
is a short error-checking program that hides itself in memory. 
When activated, it lets you know immediately after typing a 
line from a program listing if you have made a mistake. 
Please read these instructions carefully before typing any 
programs in COMPUTE!’s Gazette. 


Preparing The Proofreader 

1. Using the listing below, type in the Proofreader. The 
same program works on both the VIC-20 and Commodore 
64. Be very careful when entering the DATA statements — 
don't type an | instead ofa I, an O instead of a 0, extra 
commas, etc. 

2. SAVE the Proofreader on tape or disk at least twice 
before running it for Uie first time. This is very important because 
the Proofreader erases this part of itself when you first type 
RUN. 

3. After the Proofreader is SAVEd, type RUN. It will 
check itself for typing errors in the DATA statements and 
warn you if there's a mistake. Correct any errors and SAVE 
the corrected version. Keep a copy in a safe place — you'll 
need it again and again, every time you enter a program 
from COMPUTE/'s Gazette. 

4. When a correct version of the Proofreader is RUN, it 
activates itself. You are now ready to enter a program listing. 
If you press RUN/STOP-RESTORE, the Proofreader is dis- 
abled. To reactivate it, just type the command SYS 886 and 
press RETURN. 


Using The Proofreader 
All VIC and 64 listings in COMPUTE!'s Gazette now һауе a 
checksum number appended to the end of each line, for example 
“теп 123". Don't enter this statement when typing in a program. 
It is just for your information. The rem makes the number 
harmless if someone does type it in. It will, however, use up 
memory if you enter it, and it will confuse the Proofreader, 
even if you entered the rest of the line correctly. 

When you type in a line from a program listing and 
press RE TURN, the Proofreader displays a number at the 
top of your screen. This checksum number must match the 
checksum number in the printed listing. If it doesn't, it means 
you typed the line differently than the way it is listed. Im- 
mediately recheck your typing. Remember, don't type the 
rem statement with the checksum number; it is published 
only so you can check it against the number which appears 
on your screen. 

The Proofreader is not picky with spaces. It will not 
notice extra spaces or missing ones. This is for your conven- 
ience, since spacing is generally not important. But occasion- 
ally proper spacing їз important, so be extra careful with 
spaces, since the Proofreader will catch practically everything 
else that can go wrong. 

There's another thing to watch out for: if you enter the 
line by using abbreviations for commands, the checksum 
will not match up: But there is a way to make the Proofreader 
check it. After entering the line, LIST it. This eliminates the 
abbreviations. Then move the cursor up to the line and press 
RETURN. It should now match the checksum. You can check 
whole groups of lines this way. 


Special Tape SAVE Instructions 
When you're done typing a listing, you must disable the 
Proofreader before SAVEing the program on tape. Disable 
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the Proofreader by pressing RUN/STOP-RESTORE (hold 
down the RUN/STOP Key and sharply hit the RESTORE 
key). This procedure is not necessary for disk SAVEs, but you 
must disable tlie Proofreader this way before a tape SAVE. 

SAVE to tape erases the Pri oofreader from memory, so 
you'll have to LOAD and RUN it again if you want to type 
another listing. SAVE to disk does not erase the Proofreader. 


Replace Original Proofreader 

f you typed in the original version of the Proofreader (Oc- 
tober 1983 issue), you should replace it with the improved 
version below. We added a POKE to the original version to 
protect it from рас erased when you LOAD another pro- 
gram from tape. The POKE does protect the Proofreader, 
and the Proofreader itself was not affected. However, a 
quirk in the VIC-20's operating system means that programs 
typed in with the Proofreader and SAVEd on tape cannot be 
-OADed properly later. If you LOAD a program SAVEd 
while the Proofreader was in memory, you see 7LOAD 
ERROR. This applies only to VIC tape SAVEs (disk SAVEs 
work OK, and the quirk was fixed in the Commodore 64). 

If you have a program typed in with the original Proof- 
reader and SAVEd on tape, follow this special LOAD 
procedure: 

1. Turn the power off, then on. 

2. LOAD the program from tape (disregard the 7LOAD 
ERROR). 

3. Enter: POKE 45, PEEK(174):POKE 46, PEEK(175):CLR 

4. ReSAVE the program to tape. 

The program will LOAD fine in the future. We strongly 
recommend that you type in the new version of the Proof- 
reader and discard the old one. 


Automatic Proofreader For VIC And 64 


100 PRINT" {CLR} PLEASE WAIT...":FORI-886TO 
1018: READA : CK=CK+A: POKEI, A:NEXT 

IF CK<>17539 THEN PRINT" {DOWN} YOU MAD 
E AN ERROR":PRINT"IN DATA STATEMENTS. 
" SEND 

SYS886 : PRINT" {CLR} {2 DOWN} PROOFREADER 
ACTIVATED. " :NEW 

DATA 173,036,003,201,150,208 

DATA 001,096,141,151,003,173 

DATA 037,003,141,152,003,169 

DATA 150,141,036,003,169,003 

DATA 141,037,003,169,000,133 

DATA 254,096,032,087,241,133 

DATA 251,134,252,132,253,008 
DATA 201,013,240,017, 201,032 

DATA 240,005,024,101,254,133 

DATA 254,165,251,166,252,164 

DATA 253,040,096,169,013,032 

DATA 219,255,165,214,141,251 

DATA 003,206,251,003,169,000 

DATA 133,216,169,019,032,210 

DATA 255,169,918,032, 218,255 

БАТА 169,058,032,210,255,166 

DATA 254,169,000,133,254,172 

DATA 151,003,192,087,208,006 

DATA 032,205,189,076,235,003 

DATA 032,205,221,169,032,032 

DATA 210,255,032,210,255,173 

БАТА 251,003,133,214,076,173 

DATA 003 


110 


120 


886 
892 
898 
904 
910 
916 
922 
928 
934 
940 
946 
952 
958 
964 
970 
976 
982 
988 
994 
1000 
1006 
1012 
1018 


2222... | 
Bug-Swatter: 


Modifications And Corrections 


e In ”Hardhat Climber” (January), the climber 
may accidentally jump when the joystick is pushed 
diagonally. Thanks to reader Stephen A. Ohayon 
for discovering this correction: 


105 IF(JVAND16)-16THENJV-1:GOTO199:rem 62 


If you want the climber to jump only when the 
joystick is in the neutral position, change the first 
16 toa3l. 


The program listing of "Cave-In For VIC-20” 
was inadvertently labeled ”Cave-In For 
64." The program will run only on the VIC-20. 


e The Commodore 64 version of “MLX: 

Machine Language Entry Program” 

1983) contained lines which were longer than the 
80-character limit. Lines 160, 210, and 230 should 
be entered with abbreviated BASIC commands (Р 
Shift-O for POKE, ? for PRINT). If you abbreviate, 
you will be able to type these lines within 80 char- 
acters, but the Proofreader rem numbers will ap- 
pear to be incorrect. The program listing was cor- 
rected in the January version of MLX (see below). 


e In correcting the problem described above, 
line 210 of MLX—64 Version J was split 
into two lines. But when line 215 was added, a 
closing parenthesis was omitted. To correct this, 
add a closing parenthesis to the end of line 215. 


e Some readers have had difficulty using 
“The Assembler” ‘Machine Lan- 
guage For Beginners”) to enter Programs 1 and 2 
(December 1983), encountering ?EXTRA IG- 
NORED errors on lines using indexed addressing. 
This is because Commodore BASIC will not accept 
commas in the middle of INPUT. Programs 1 and 
2 were disassembled using the comma convention; 
readers who want to use The Assembler should 
type the program lines without commas. For ex- 
ample, instead of STA 1024,Y use STA 1024Y. 

In addition, line 200 of The Assembler should 
have included an Automatic Proofreader rem 
number of 0. 


ө The printer used to generate GAZETTE pro- 
gram listings still places an occasional random 


question mark. Line 1018 of "Disk File Manager" 
(December 1989) contains one such superfluous 
character. To correct this, delete the question mark 


after FILE =. The program runs as listed, but the 


Proofreader checksum number will not be correct 


if the question mark is included. y 


e "Thinking" fuco did < contains a 


minor typographical error. If the REM is removed 
from line 2 to convert Thinking to Thinking Harder, 
there are nine switches instead of six. But the 
prompt in line 132 says there are six. To correct 
this, change YOUR NUMBER (1-6) to YOUR 
NUMBER (1-"G$"). 


ө “Foolproof INPUT” ("PowerBASIC," De- 

шай?) as published does not solve the prob- 

ms caused by commas and colons. It disables 
the cursor keys and certain other function keys, 
but commas will still cause an 7EXTRA IGNORED 
error. The solution is to POKE 198,1: POKE 631,34 
before each INPUT. Ina program with many 
INPUT statements, these two POKEs could be 
put into a subroutine. After the POKEs, the com- 


puter will be in quote mode, which allows entry 
of commas and colons. 


€ Readers who bowled a perfect game (300) 
in "Bowling Champ" 3) may have 
been disappointed to find 290 as their score. Our 
thanks to reader David McDonnell, Jr., for finding 
this bug. To correct it, change these lines: 


209 J-0:GOSUB430:GOSUB559:T(Z9)-T(Z9)4J 


:rem 83 
210 K-J-*176:1FK-186THENK-152:T(Z9)-T(29)- 
Ј*(0=0) :rem 8 


211 PRINTC$(Z9);T(Z9):POKEL(Z9),K:POKEL(Z 
9)+CO,4:L(Z9)=L(Z9)+1 :гет 216 


e “Spelling Bee For VIC” (December 1983) 
contains a minor error. Line 360 includes a PRINT 
color which is accessible on the Commodore 64, 
but not on the VIC. To remedy this, change 
Commodore-5 to CTRL-5 (purple). 


e Readers Wesley Evans and Dick Sloss both 
discovered an error in the program "Sprite BASIC” 


from “Sprites Made Easy" (December 1983), The 
problem occurs in the colors of sprites 1-7. To 
correct this, make the following changes: 


170 FOR I-49152 TO 49384:READN:POKE I,N:A 
=A+N:NEXT I :rem 189 
IF А<>30780 THEN PRINT "ERROR IN DATA 
STATEMENTS" :rem 40 
DATA 138,164,2,145,251,32,253,174,32, 
227,192,224,16,176,146,138,153 
:rem 179 
DATA 23,208,32,253,174,32,227,192,224 
,4,176,223,134,2,70,2,144 :rem 160 
DATA 32,158,183,164,2,96 :rem 104 


188 


280 


300 


340 


In addition, some readers have run into prob- 
lems with the ”Tie Fighter" program in the same 
article. The program runs as listed, but only if 
“Sprite BASIC" is loaded and run first. @ 
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COMMODORE 64 


Finally, Excellent Software 
At An Affordable Price! 
Compare: e MENU DRIVE 
e USER LOVABLE 
e ADVANCED FEATURES 

DATA BASE/MAIL LIST 
Fast random access to any record. 
Search on any field. Machine Language 
sorts. Prints mailing labels. Large 
records. Eight fields. . 

LOAN ANALYSIS SYSTEM 
Calculate a loan's term, interest 
rate, principal or monthly payment. 
Display an amortization schedule 
on screen or printer. Yearend 
totals for payment to interest and 
payment to principal. Printer ver- 
Sion also gives principal and in- 
terest paid to date for the life of 
the loan. 

HOME INVENTORY 
Record all your valuables. Print in- 
ventory lists on screen or printer. 
Record 700 items per disk Search 
items by Category, Manufacturer or 
Item Description. Indispensable 
in case of theft or fire. 

ALL THREE PROGRAMS FOR 
$26.95 SORRY, DISK ONLY 
SEND CHECK OR MONEY ORDER ТО: 
MULTI-PAC SOFTWARE 
BOX 7342 
TULSA, OK 74170 
WE PAY TAX AND POSTAGE! 


80 COLUMNS! 
25 LINES 


A FULL PROFESSIONAL 
DISPLAY FOR 


Commodore 64 


with 


Screenmaker" 


Screenmaker is a video display generator 
module that plugs into the expansion connector 
of the Commodore 64. 


v. WORD PROCESSING 
v CALCULATIONS 
V BASIC PROGRAMS 


Screenmaker provides a B & W video signal 
that connects to your video monitor to provide 
a full 80 characters on each line. With Screen- 
maker, Screen displays will appear the same 
as the printer output. Trial printouts can be 
eliminated. Word processing is easier. Forms 
and reports can be set up faster. Screenmaker 
features a bank switched memory, 40/80 video 
Switch, and afuli characterset including graphics. 


SGREENMAKER: 2.2.2... : $159.95 
Copy-Writer Word Processor... $ 79.95 
SCREENMAKER/ 

Copy-Writer Package...... $199.95 


P.O. Box 102 
Langhorne, Pa. 19047 


(мисвотесн) 


215-757-0284 


TALK OR SING-The “64” responds 


IN YOUR OWN VOICE 


Enter up to 150 of your own words and phrases. 
Compute response with BASIC. Store word sets on 
tape or disk for unlimited selections. Easy for anyone 
to set up and use. Complete with cassette software 
(transferrable to disk) with demonstration programs 
for talking clock, calculator, and black jack, How to 
define every key as a spoken phrase or song note or 
other sound. There are so many applications and 
special effects it boggles the mind! Soon available 
for other popular computers. Software for word 
recognition to be available. 


ому 511995 


WE CAN DEMONSTRATE 
OVER THE TELEPHONE! 


COVOX CO. 

675-D Conger St. Eugene, OR 97402 
Tel: (503) 342-1271, Telex 706017 
Check, money order, or VISA/MC 
(Dealer inquiries invited) 


Tree Tutor For Tots 


(Article on page 60.) 


10:NEXT 


16 PRINT"(CLR]":POKE8183, 205: POKE8184, 228 
: POKE8185 , 206 : FORB-38903TO38905 : POKEB, 


:rem 216 


18 FORL=1T019:Q=249:IFIS$="2"THENI=2 


BEFORE TYPING... 


ur 


2@ T=INT(RND(.)*F)+1 


:rem 6Ø 
:rem 94 


Before typing in programs, please refer to ”How 
To Туре COMPUTE!’s Gazette Programs,” "A 
Beginner's Guide To Typing In Programs,” and 
4 Že Automatic Proofreader” that appear before 
the Program Listings. 


Program l: Tree Tutor For VIC 


2 


8 


PRINT" {CLR} {8 DOWN} {RVS} {5 RIGHT}*{UP} 
{LEFT }*TREE{RIGHT } TUTOR* ( DOWN} {LEFT} * 
(DOWN) (12 LEFT}*{RIGHT}FOR{RIGHT}TOTS 
{RIGHT}*" :гет 121 
POKE36869, 255: POKE52, 28: POKE56, 28:CLR:F 
ORI=7168T07679: POKEI , PEEK (I+256@9) :NEXT 

:rem 97 
FORI=7168T07263 : READN: POKEL ,N: NEXT: POKE 
36879, 29: V=36878 :M=36876 :C=38728 

:rem 173 
X=0: PRINT" {CLR} {BLU} {RVS} {2 SPACES}CHOO 
SE HIGHEST SUM"SPC(19)"(2-9)" :rem 83 


10 GETF$:F=VAL(FS$) :IFF<20RF>9THEN1G 


гет 113 


12 PRINT"{CLR}{RVS}WHEN DO YOU WANT TO 


(3 SPACES}SEE FRUIT?{2 DOWN}{4 ҺЕЕТ)(1 
) ALWAYS"SPC(12)"{DOWN}(2) IF WRONG" 
:гет 149 


14 GETI$:I=VAL(I$):IFI<1ORI>2THEN14 


:rem 128 
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32 


34 


36 


38 
40 


42 


B-INT(RND(.)*((F-1)-T)):IFT-TlANDB-BlT 
HEN2Ø :rem 166 
PRINT" {HOME } {2 DOWN]";:FORY-1TO20:PRIN 
T"(18 SPACES)":NEXT:PRINT"(9 SPACES)"; 
:гет 94 
FORZ=38796T038883: POKEZ,2:NEXT :rem 66 
PRINT" {HOME}{2 DOWN}{GRN}{3 SPACES }HFH 
FHF":PRINT"{2 SPACES }HJJJJJJF":PRINT" 
{SPACE }HJJJJJJIIF":PRINT" GJJJJJJJJI" 
:гет 97 
PRINT" HJJJJJJJJF":PRINT" GJJJJJJJJI": 
PRINT" HJJJJJJJJF":PRINT" GJJJJJJJJI" 
:rem 209 
PRINT"{2 SPACES}GJJJJJJI":PRINT" 
{3 SPACES }GJJJJI":PRINT"{4 SPACES}GJJI 
":PRINT"(5 SPACES} {BLK} JJ {DOWN} 
{2 ‘LEFT }JJ {DOWN} {2 LEFT }JJ {DOWN} 
{2 LEFT IT :rem 123 
PRINT" {DOWN} {2 LEFT}JJ{DOWN}{2 LEFT}JJ 
{DOWN}{3 LEFT}HJJF" :rem 0 
X=X+1:PRINT"{HOME}{8 DOWN} {16 RIGHT) 
{BLK}"T"{4 LEFT}{2 DOWN}+"B"{4 LEFT} 
{DOWN} {RVS}***":PRINTSPC(17)"? 
{2 LEFT}"; :rem 204 
IFI=2THEN76 :гет 78 
POKE7751,11:POKE7751+C, 106: IFT=1THEN58 
n :rem 84 
РОКЕ7860,11:Р0ОКЕ7860%С,10:ІЕТ-2ТНЕМ58 
:rem 89 


44 


46 


94 


96 


98 


186 


102 


104 


106 


108 


POKE7885,11:POKE7885-«C,10:1FT-3THEN58 


:rem 106 
РОКЕ7775,11:РОКЕ7775-С,10:ІЕТ-4ТНЕМ58 
:rem 105 
РОКЕ7815,11:;РОКЕ7815-С,10:ІЕТ-5ТНЕМ58 
:rem 98 
POKE782@,11: POKE7829+C, 10: I1FT=6THEN58 
ігеп 84 
РОКЕ7903,11:РОКЕ7903+С,10:ІЕТ=7ТНЕМ58 
:rem 91 
РОКЕ7840,11:РОКЕ7840-С,10:ІЕТ-8ТНЕМ58 
:гет 94 
РОКЕ7928,11:РОКЕ7928-С,10 :rem 64 
ІЕВ-й ТНЕМ76 :rem 71 
РОКЕ8086,0:ІЕВ-1ТНЕМ76 :rem 220 
POKE8978,0:1FB-2THEN76 :rem 224 
POKE8123,0:1FB-3THEN76 :rem 218 
POKE8159,0:1FB-A4THEN76 :rem 221 
РОКЕ8106,0:ІЕВ-5ТНЕМ76 :rem 225 
РОКЕ8146,0:ІЕВ-6ТНЕМ76 :гет 223 
POKE8126,0:1FB-7THEN76 :rem 224 
РОКЕ8152,0 :rem 198 
РОКЕ198,0 :rem 154 
GETAS : AN=VAL (AS ) : IFAN< 1ORAN> 9THEN78 
:геп 93 
PRINTAN: FORZ=1 T0589: NEXT: I FAN=T+BTHEN8 
6 :rem 17 


PRINT" {RVS}{9 DOWN}TRY AGAIN"; : POKEV, 5 
: POKEM, 231: FORZ-1TO200 : NEXT : POKEM, 225 


rem 42 
FORZ-1TO290:NEXT:POKEV,8:1-0:GOTO36 

:rem 176 
PRINT"{RVS}{9 DOWN}HOORAY!{2 SPACES}"S 
PC(7)L; :T1=T:Bl=B: A=77ØØ :гет 212 


PRINT" {HOME}{2 SPACES)"; :FORB=1TO3: PRI 
NT" {BLK} {OFF}CAE{3 LEFT}";:FORZ=1T075: 


NEXT: PRINT"BAD{3 LEFT)"; :rem 147 
FORZ=1T0O75:NEXT: PRINT" {3 SPACES) 
{2 LEFT}{DOWN}"; : NEXT :rem 170 


FORB=1T02:PRINT" {RED}{UP}@{UP} 
(2 LEFT}{BLK}CAE{3 LEFT)"; :ІРВ=2ТНЕМРО 
KE7730,6:POKE773@+C,5:GOTO96  :rem 251 
РОКЕ7751,10:РОКЕ7751+С,5:РОКЕ7728,6:РО 
КЕ7728+С,5:РОКЕ7729,8:РОКЕ7729+С,5 
:rem 115 
FORZ=1T075:NEXT:PRINT"BAD{3 LEFT)"; :FO 
RZ-1TO75:NEXT:PRINT"(3 SPACES) {DOWN} 
(2 LEFT]"; :NEXT :rem 5 
FORB-1TO13:PRINT" {RED}@{UP}{3 LEFT} 
{BLK}CAE{3 LEFT)"; :FORZ=1T075:NEXT: PRI 
NT"BAD{3 LEFT}"; :rem 158 
FORZ=1T075:NEXT:PRINT"{3 SPACES} 
{DOWN} {2 LEFT)"; :NEXT :rem 210 
PRINT" {UP}{LEFT}";:PRINT" CA{2 LEFT)" 
::GOSUB124:PRINT"BA(2 LEFT}";:GOSUB12 
4:PRINT" CÍLEFT]";:GOSUB124 :геп 237 
PRINT" B{LEFT}";:GOSUB124:PRINT" "; 
:rem 23 
FORB=1T0(15-L) : POKEM,Q: POKEA, 32:A=A+2 
2:РОКЕА,й:РОКЕА%С,2:0-0-5:МЕХТ:РОКЕУ, 
@:NEXT :rem 251 
PRINT" {HOME } {8 DOWN} {11 RIGHT} 
{11 SPACES} {DOWN} {19 LEFT} {RVS} {BLK}Y 
OU сот 10{DOWN} {10 LEFT}APPLES IN" 
:гет 240 


110 PRINT"{RVS}{11 RIGHT}"X"TRIES. {DOWN} 


12 


{4 LEFT} {2 SPACES)":FORZ-1TO3909:NEXT 

:rem 34 
PRINT" {HOME} {21 RIGHT}{BLK}U{LEFT}";: 
FORZ=1T075:NEXT: PRINT"B{LEFT}"; :FORZ= 
1TO75:NEXT :rem 157 


114 PRINT" {DOWN}{2 LEFT}CA{2 LEFT}";:FOR 
Z-1TO75:NEXT:PRINT"BA(2 LEFT)"; :FORZ= 
1ТО75:МЕХТ :rem 144 

116 FORB-1TO7:PRINT"(3 SPACES}{4 LEFT) 
{DOWN}CAE (4 LEFT]";:FORZ-1TO75:NEXT: 
PRINT"BAD(3 LEFT)"; :FORZ=1TO75:NEXT 

:rem 215 

118 NEXT:PRINT"{RVS}{6 DOWN) {LEFT} {BLU }HI 

T *{DOWN}{5 LEFT}TO PLAY {DOWN} 


{7 LEFT}AGAIN." :rem 12 
120 GETPS$:IFP$<>"*"THEN129 :rem 206 
122 GOTO8 :rem 6 


124 РОКЕУ,9:ҒОЕВ-1Т02:РОКЕМ,0:РОКЕА,32:А- 
A+22 : POKEA , Ø : POKEA+C, 2:Q=Q-5:FORZ=1TO 


15:МЕХТ :rem 127 
126 NEXT: RETURN :rem 242 
128 DATA24,8,106,255,255,255,126,52,60,12 
6,187,199, 239,126,498, 48 :rem 147 


130 DATA0,0,0,15,31,48,96,192,240,120,12, 
7,3,0,0,0,0,0,0,240,248,12,6,3 
:геп 137 
132 DATA15,30,48,224,192,0,0,0,192,240,24 
8,252,252,254,255,255 :rem 18 
134 DATA255,255,127,127,63,31,15,3,3,7,15 
OI GOG AVA :rem 84 
136 DATA255,254,254,252,252,248,224,192,2 
55,255,255,255,255,255,255,255 
:гет 254 
138 DATA245,105,170,170,170,170,170,105 
:rem 169 


Program 2: Tree Tutor For Тһе 64 
100 РОКЕ53281,1:РОКЕ53270,РЕЕК(53270)0816 


:РОКЕ53282,5:РОКЕ53283,2 :геп 207 
110 PRINT"{CLR} (11 DOWN} {12 RIGHT)"; 
гет 72 


120 PRINT"{BLK}* {UP} {LEFT}*TREE{2 RIGHT}T 
UTOR* {DOWN} {LEFT }* {DOWN} (13 LEFT} + 
(2 RIGHT}FOR{RIGHT}TOTS{RIGHT}*" 


srem 131 

130 PRINT"{4 DOWN} {11 RIGHT} LOADING 
(2 SPACES)DATA" :rem Ø 
140 POKE56334,PEEK(56334)AND254:POKEl,PEE 
K(1)AND251 :rem 182 
150 POKE56,48:CLR:FORI-12288T016383:POKEI 
, PEEK (1+4Ø96Ø):NEXT :rem 123 
160 POKEl,PEEK(1)OR4:POKE56334,PEEK(56334 
)ORI :rem 134 
170 FORI-12288TO12383:READN:POKEI,N:NEXT: 
POKE53281,1:C=54272 :rem 126 
180 ЕОКО=СТОС+24:РОКЕО,@:МЕХТ:РОКЕС+24,15 
:РОКЕС+5,17:РОКЕС+6,245 :rem 154 


190 X=Ø:PRINT"(CLR) (BLK) (2 SPACES}{RVS} C 
HOOSE HIGHEST SUM "5РС(10)"(2-9)" 


:rem 38 
200 GETFS$:F-VAL(F$):IFF«2ORF»9THEN2060 
:rem 211 


210 PRINT"{CLR}{4 RIGHT}{RVS}WHEN DO YOU 
{SPACE}WANT TO SEE FRUIT?{4 DOWN)" 


:rem 6 
220 PRINTSPC(12)"(1) ALWAYS(Í4 DOWN)" 
:rem 150 
230 PRINTSPC(12)"(2) IF WRONG" :rem 159 
240 GETIS$:I-VAL(IS$):IFI«lORI»2THEN249 
:rem 226 
250 PRINT"ÍCLR]":POKE1938,77:POKE1940,109 
: POKE1942,78 :rem 155 
260 FORB-56210TO56214:POKEB,10:NEXT 
:rem 82 
270 FORL-1TO19:Q-240:1IFI$-"2"THENI-2 
:rem 108 
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28@ 
29@ 


3@@ 


310 


320 


330 
340 
350 


360 


370 


380 


390 


400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
548 
550 
560 
570 
580 
590 
600 
610 
620 


630 


640 


650 
660 


T=INT(RND(.)*F)+1 :rem 150 
B=INT(RND(.)*((F+1)-T) ) : IFT=TLANDB=B1 
ТНЕМ280 :rem 21 
PRINT"(HOME](2 DOWN)"; :FORY=1T021:PRI 
NT"(19 SPACES)":NEXT:PRINT" 

(12 SPACES)"; :rem 140 
FORZ-56016T056176:POKEZ,2:NEXT:POKE53 
272,29 :rem 93 
PRINT" {HOME} {2 DOWN}{GRN}{3 SPACES}HF 
HFHFHFHF":PRINT"{2 SPACES]HJJJJJJJJJJ 


EM :rem 252 
PRINT" HJJJJJJJJJJJJF":PRINT" GJJJJJJ 
JJJJJJI" :rem 128 


PRINT" HJJJJJJJJJJJJF":PRINT" GJJJJJJ 


JJJJJJI" :rem 129 
PRINT" HJJJJJJJJJJJJF":PRINT" GJJJJJJ 
JJJJJJI" :rem 130 
PRINT"{2 SPACES]GJJJJJJJJJJI":PRINT" 


{3 SPACES]GJJJJJJJJI":PRINT" 

(4 SPACES ]GJJJJJJI" :rem 32 

PRINT"(5 SPACES}GJJJJI{DOWN}{5 LEFT} 

{BLK }JJJJ {DOWN} {4 LEFT }JJJJ {DOWN} 

{4 LEFT]JJJJ"; :rem 146 

PRINT" {DOWN} {4 LEFT }JJJJ {DOWN} 

{4 LEFT)JJJJÍDOWN)Í5 LEFT}HJJJJF" 
:rem 158 

X=X+1 : PRINT" {HOME} {8 DOWN} {16 RIGHT} 

(BLK)"T"(4 LEFT} {2 DOWN}+"B"{4 LEFT} 


(DOWN)***" :rem 143 
PRINTSPC(17)"?(2 LEFT)"; :rem 184 
IFI-2THEN690 :rem 161 


POKE1151,11:POKE1151+C,1@:IFT=1THEN51 


Ø srem 151 
РОКЕ1226,11:РОКЕ1226-С,10:ІЕТ-2ТНЕМ51 
@ srem 159 
РОКЕ1396,11:РОКЕ1396+С,10:ІЕТ=ЗТНЕМ51 
2 SEEM 177 
РОКЕ1196,11:РОКЕ1196%С,10:ІЕТ-4ТНЕМ51 
2 :rem 175 
РОКЕ1269,11:РОКЕ1269+С,10:ІЕТ=5ТНЕМ51 
ø :rem 179 
РОКЕ1278,11:РОКЕ1278+С,10:ІРТ=6ТНЕМ51 
ø :rem 181 
POKE1429,11: POKE1429+C, 1Ø: IFT=7THEN51 
Ø :rem 179 
POKE1314,11:POKE1314+C, 1Ø: IFT=8THEN51 
Ø :rem 167 
POKE1474,11:POKE1474+C, 1Ø: IFT=5THEN51 
2 :rem 170 
IFB=ØTHEN6ØØ :rem 153 
РОКЕ1762,0:ІЕВ-1ТНЕМ600 :гет 48 
POKE1747,0:1FB-2THEN600 :rem 53 
POKE1829,0:1FB-3THEN6O8 :rem 56 
РОКЕ1878,0:ІЕВ-4ТНЕМ600 rem 62 
РОКЕ1798,0:ІЕВ-5ТНЕМ600 геп 65 
РОКЕ1871,0:ІЕВ-6ТНЕМ600 геп 59 
РОКЕ1834,0:ІЕВ-7ТНЕМ600 :rem 60 
РОКЕ1882,0 :rem 252 
РОКЕ198,0: :rem 253 
GETAS : AN=VAL (A$ ) : IFAN< 1ORAN>9THEN616 
srem 173 
PRINT (AN) : FORZ=1TO56@: NEXT: IFAN=T+BTH 
EN66Ø :rem 192 


PRINT"{RVS}{9 DOWN}TRY AGAIN{OFF}";:P 
OKEC,5:POKEC-*1,5:FORZ-1TO200:NEXT 


:rem 78 
POKEC-*4,33:FORZ-1TO2909:NEXT: POKEC-*4,3 
2 :rem 48 
I-0:GOTO390 :rem 96 


PRINT"(RVS)Í8 DOWN} {RVS } {DOWN ]HOORAY ! 
{2 5РАСЕ5)"5РС(7)Һ;:Ті-Т:Ві-В:А-1060 
:rem 13 
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67@ 


68@ 


690 


700 
710 
720 


730 


746 


750 


760 
770 
780 
790 


800 


810 


820 


830 


840 


850 


860 
870 


880 


8960 
900 


910 
920 
930 


940 
950 


960 


970 
980 


990 


PRINT" {HOME} {4 RIGHT]";:FORB-1TO3:PRI 
NT" {BLK} {OFF}CAE{3 LEFT]";:FORZ-1TO75 
:NEXT: PRINT"BAD{3 LEFT}"; :гет 52 
FORZ-1TO75:NEXT:PRINT"(3 SPACES] 

(2 LEFT) (DOWN] "; : NEXT :rem 223 
FORB-1TO3:PRINT" {RED} {UP}@ {UP} 

{2 LEFT}{BLK}CAE{3 LEFT]";:IFB-2THENP 
OKE1112,6:POKEl11124C,5:GOTO720:rem 66 
РОКЕ1151,1@:РОКЕ1151+С,5:РОКЕ111@,6:Р 
OKE111Ø+C,5:POKE1111,8 :rem 53 
POKE1111+C,5 :rem 90 
FORZ-1TO75:NEXT:PRINT"BADÍ3 LEFT) ";:F 
ORZ=1T075:NEXT:PRINT"(3 SPACES} {DOWN} 
(2 LEFT}"; :NEXT :гет 47 
FORB-1TO27:PRINT" {RED}@{UP}{3 LEFT} 
{SPACE}{BLK}CAE{3 LEFT]";:FORZ-1TO75: 
NEXT: PRINT"BAD{3 LEFT)"; :rem 204 
FORZ=1T045 :NEXT: PRINT"{3 SPACES] 
{DOWN}{2 LEFT]";:NEXT :гет 217 
PRINT" {UP}{LEFT}";:PRINT" CA{2 LEFT)" 
::GOSUB930:PRINT"BA(2 LEFT]";:GOSUB93 


Ø :rem 137 
PRINT"{2 SPACES}{LEFT}"; :GOSUB93Ø 
:гет 156 


PRINT"(2 SPACES} {LEFT} ";:GOSUB93Ø:PR 
INT" {DOWN} {3 LEFT} {3 SPACES]":rem 144 
POKEC+4,17 :rem 4 
FORB=1T014-L: РОКЕС+1,0/4:РОКЕС,0/4:РО 
KEA, 32: A=A+4@: POKEA, 9: POKEA+C, 2:Q=Q-5 
:rem 230 
NEXT: POKEC+4,16:NEXT :rem 238 
PRINT" {HOME} {8 DOWN} {22 RIGHT} 
{11 SPACES} {DOWN} {19 LEFT} {RVS} {BLK} 
{SPACE}YOU GOT 10"; :rem 219 
PRINT" {RVS} {DOWN} {11 LEFT}{3 SPACES)A 
PPLE{3 SPACES}"; :rem 250 
PRINT" {RVS} {DOWN} {11 LEFT}IN"X" {LEFT} 


TRIES.";:FORZ-1TO309:NEXT :rem 166 
PRINT" {OFF} {DOWN} {11 LEFT)(11 SPACES} 
9 :rem 207 


PRINT" {HOME} {31 RIGHT}{BLK}U{LEFT}";: 
FORZ=1T075 :NEXT: PRINT"B{LEFT}"; 


:rem 87 
FORZ=1T075 : NEXT :rem 213 
PRINT" {DOWN}{2 LEFT}CA{2 LEFT}";:FOR 


Z-21TO75:NEXT:PRINT"BA(2 LEFT)"; :FORZ= 
1Т075:МЕХТ trem 153 
FORB-1TO7:PRINT"(3 SPACES}{4 LEFT} 
{DOWN}CAE {4 LEFT]";:FORZ-1TO75:NEXT: 
PRINT"BAD{3 LEFT}"; :rem 110 
FORZ=1T075:NEXT trem 216 
NEXT: PRINT" {RVS}{6 DOWN} {LEFT}{BLU}HI 
T *{DOWN}{5 LEFT}TO PLAY {DOWN} 


{7 LEFT}AGAIN." :rem 11 
СЕТР$:ІЕР$ <> "*"ТНЕМ910 :rem 220 
РОКЕ53272,21:60Т0190 :rem 105 


FORB=1TO2: : POKEA, 32 :A=A+4ð : POKEA, ð 

еш 11 
FORZ=1T015:NEXT:NEXT: RETURN :rem 97 
DATA24,8,106,255,255,255,126,52,60,12 
6,187,199,239,126,40,40 :rem 150 
DATA9,0,0,15,31,48,96,192,240,120,12, 
7,3,0,0,0,0,0,0,240,248,12,6,3 

:rem 148 
DATA15,30,48,224,192,0,0,0,192,240,24 
8,252,252,254,255,255 :rem 28 
DATA2557255 LV КЄЗ ЗАК, LS ИЗ, Л, LS 
,31,63,63,127,255 :rem 93 
DATA255,254,254,252,252,248,224,192,2 
SSA bue 2b 2S ASS P EEN © 


1000 DATA245,105,170,170,170,170,170,105 


:rem 206 


VICreations 


(Article on page 124.) 


BEFORE TYPING... 


Before typing in programs, please refer to “How 
To Type COMPUTE"’s Gazette Programs," "A 


Dee s Guide To Typing In Programs," and 
“The Automatic Proofreader’ that appear before 
the Program Listings. 


1 REM REMEMBER TO CHNG(2 SPACES]"N", LINE 


%900 WHEN{3 SPACES}ADDING/DELETING DAT 


AÍ2 SPACES}STATEMENTS :rem 63 
10 PRINT" {CLR} {DOWN} DO YOU WISH TO SEE": 
PRINT" THE MENU?":PRINT" {DOWN} (PRESS 
{SPACE}Y OR М)" :rem 195 

20 GETY$:1FY$-" THEN2O :rem 23 
21 IFY$-"Y"THEN890 :rem 16 

25 PRINT"Í2 DOWN} LOADING DATABASE...":PR 
INT" PLEASE WAIT." :GOSUB9ØØ :rem 146 

30 S=0: PRINT" {CLR} {DOWN} ENTER SEARCH"SPC( 


76 


ҮЙ) 


4)"PRESS":PRINT"ARGUMENT"SPC(8)"F-KEY 
{2 DOWN)" :rem 225 
PRINT" { DOWN} ARTICLE SUBJECT{3 SPACES}1 
{DOWN}":PRINT"ARTICLE NAME"SPC(6)"3 

( DOWN] " :rem 193 
PRINT"MAGAZINE NAME"SPC(5)"5" :rem 136 
PRINT"ÍDOWN)]TYPE OF COMPUTER{2 SPACES} 
7":PRINT" {DOWN} END PROGRAM"SPC(7)"8" 


:rem 186 

GETX$ :гет 192 
IFXS="{F1}"THENS=3 :гет 104 
{F3} "THENS=2 :rem 105 
{F5}"THENS=1 :rem 106 

{F7} "THENS=6 :rem 113 
IFX$=" {ЕВ} "THENPRINT" {CLR} {DOWN} END P 
ROGRAM" : CLR: END :rem 64 
ІЕЅ=0ТНЕМ40 :гет 76 


PRINT" {CLR} {DOWN} ENTER SUBJECT OF 
{DOWN} ":PRINT" SEARCH: {2 DOWN)": INPUTS 


$ :гет 1Ø9 

FORZ=1TON: IFA$ (Z, S)=S$THENGOSUB3ØØ 
:rem 89 

NEXTZ srem 0 


PRINT" {CLR} {DOWN} END OF DATA OR{DOWN} 
"2PRINT" SUBJECT NOT FOUND( DOWN)" 


srem 178 
PRINT" (CHECK SPELLING){2 DOWN)" 

:rem 109 
GOSUB699 : GOTO39 :rem 90 


300 PRINT" {CLR} SUBJECT FOUND: (2 DOWN}":P 


RINT"MAGAZINE:":PRINTA$(Z,1) :rem 164 


301 PRINT" {DOWN}ARTICLE:":PRINTAS(Z, 2) 


:геп 233 


302 PRINT" {DOWN}SUBJECT:":PRINTAS$(Z,3):PR 


INT" (DOWN) DATE: ":PRINTAS(Z,4):PRINT" 


{DOWN}PAGE NO.:" :rem 224 
303 PRINTAS(Z,5):PRINT" {DOWN} COMPUTER: ":P 

RINTAS(Z,6) :rem 146 
305 GOSUB6ØØ : RETURN :rem 200 
600 PRINT"{DOWN} (PRESS RETURN)" :rem 54 
601 GETY$:1FY$-""THEN621 :rem 129 
602 RETURN :rem 120 


800 PRINT" {CLR} { DOWN} RECORD FORMAT: 


{DOWN}":PRINT"1) MAGAZINE NAME { DOWN)" 
:PRINT"2) ARTICLE NAME{DOWN}" :rem 95 


801 PRINT"3) SUBJECT OF ARTICLE{DOWN}":PR 


INT"4) MONTH.YEAR(DOWN)":PRINT"5) PAG 

E NO. {DOWN}" :rem 64 
802 PRINT"6) COMPUTER TYPE":PRINT" 

{2 DOWN} SEPARATE EACH ENTRY{DOWN}":P 

RINT" BY A COMMA{DOWN}" :rem 26 
803 GOSUB6ØØ :rem 177 
804 PRINT"ÍCLR)](DOWN]WHEN PROMPTED TO":PR 

INT" (DOWN) ENTER SEARCH ARGUMENT," 


:гет 48 

805 PRINT"PRESS F-KEY FOR":PRINT" { DOWN} DE 
SIRED FUNCTION.(2 DOWN)" :rem 16 

806 GOSUB6ØØ :rem 180 


807 PRINT" {CLR} (DOWN]WHEN PROMPTED TO 
{DOWN}":PRINT"ENTER SUBJECT OF{DOWN}" 
:геп 164 
808 PRINT"SEARCH, ENTER NAME, (DOWN]":PRIN 
T"THEN PRESS RETURN. {2 DOWN]":GOSUB60 
g :rem 118 
809 GOTO19 :rem 59 
900 N-5:DIMAS$(N,6):FORR-1TON:FORC-1TO6:RE 
ADAS(R,C):NEXTC:NEXTR:RETURN :rem 190 
901 DATA GAZETTE,SPEEDSCRIPT,WORD PROCESS 


ING,1.84,38,VIC/64 :rem 212 

902 DATA GAZETTE,CAVE-IN,GAME,1.84,80,VIC 
:rem 183 

983 DATA GAZETTE, ELECTRONIC NOTEPAD, UTILI 
TY,1.84,112,64 :гет 15@ 

9@4 DATA GAZETTE, HORIZONS 64,GENERAL, 1.84 
‚136,64 :гет 90 

985 DATA GAZETTE,MLX,M/L,1.84,171,VIC/64 
:rem 64 


Trenchfire 


(Article on page 52.) 


Program 1: 64 Version 


5 PRINT" {CLR} ": POKE214, 10: PRINT: PRINTTAB( 
13)"{RVS}TRENCH FIRE":FORJ-1TO999:NEXT 


:rem 32 
10 POKE53281,11:POKE53282,12: POKE53283,13 
:Z=53270:POKEZ, PEEK(Z)OR16 :rem 180 


20 POKE52,56: POKE56,56:CLR: POKE56334, PEEK 
(56334)AND254: POKE1, PEEK(1)AND251 
:rem 112 
30 IFPEEK(14336) <>69THENFORI=9T0511: POKEI 
+14336, PEEK ( I+53248 ) : NEXT :rem 194 
35 POKE1, PEEK(1)OR4:POKE5328Ø,Ø:V=53248 
:rem 10 
40 POKE56334, PEEK(56334)OR1: POKE53272, (PE 
ЕК(53272)АМ0240)--14:РОКЕ54296,0:геп 59 
50 FORJ-0TO7:POKE14336-27*8-J,179:POKE143 
36%29%8-21,85:КЕАрО:РОКЕ14848-7,0 
:rem 241 
55 POKE14336+28*8+J, 255: POKE14336+31*8+Jd, 
255-PEEK(14336+46*8+J ) : NEXT :rem 239 
57 DATA255,243,243,192,243,243,255,255 
:rem 142 
60 FORJ=6TO15: READQ: POKE14856-J,Q:NEXT:DA 
TA254,254,252,240,232,156,235,247 
:rem 231 
ӨТ DATAT277 1277637 15723757 72 %5, 239 
srem 191 
85 D-55296-1024:FORJ-1024TO1503:IFRND(1)» 
. ITHENPOKEJ , 31: POKEJ+D, 8:J=J+l:rem 193 
87 POKEJ, 28: POKEJ+D, 8:NEXT:Q$="SCORE" 
:rem 41 
88 FORJ-1TO5:POKE1023-J,ASC(MID$(Q$,J,1)) 
-64:РОКЕ1023-2-р,0:МЕХТ:РОКЕ1029,58 
sem 195 
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FORJ=1Ø29T01Ø35: POKEJ+D, Ø:NEXT:NS=3: GO 
SUBSØØØ:SC=Ø:GOSUBS5ØLØ :rem 149 
FORJ=1T019 : READQ: POKEQ-47,64:NEXT 

:rem 26 
РАТА1087,1090,1165,1212,1251,1290,1331 


ЛО КЕЗ) :rem 6 
FORJ-1TO16 :rem 59 
G-0 :rem 73 
IFJ>5THENIFJ /2=INT(J/2) THENF=F+49:G=4 
Ø :rem 25 
READC :rem 242 
T=1+J :rem 203 
FORX=6TO18-T :M=1344+J*49+X:N=13444+5*4 
0%39-Х :rem 148 
Q-M:GOSUB500:QzN:GOSUB500 :rem 37 
NEXTX :rem 46 
ЕОВТ=1364+7*40ТО1444+7*4@+Е5$ТЕР4@ 

:rem 90 
О=1-Т-1:6050В8500:0=І+Т:С050В500 

srem 125 
NEXT: I=1-40 :rem 115 
FORH-I-T-1 TOI+T :rem 145 


Q=H: GOSUB500 : Q=H-G : GOSUB500 : NEXT: NEXT 
:GOTO708 :rem 135 
АНУАР RTE 032/0792 029 99 03:2 27] ОН) 
BN, A) ZO Ре 502) :rem 197 
IFQ«2024THENPOKEQ,C:POKEQ-*D,8 :rem 36 
RETURN ігеп 118 
IFPEEK(832)-33THEN890 :rem 163 
FORJ-0TO2:FORI-0TO62:READQ: POKE832+J* 
64+1,Q:NEXT:NEXT :rem 138 
DATA33,0,90,64,128,0,140,64,0,158,64,0 
,243,192,0,158,64,0,140,64,0 :геп 80 
DATA64,128,0,33,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0 :rem 238 
DATA2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0 :rem 20 
рАТА0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0 :rem 25 
DATA0,8,0,0,8,0,0,28,0,0,28,0,1,255,1 
921531425512 2412 72512 7/91/27] :rem 135 
рАТАЗ0,62,60,3,99,96,1,193,192,0,0,0, 
0,0,0,0,0,0,0,0,0 :rem 21 
DATA0,128,0,32,32,0,0,2,0,10,128,2,40 
20 LSA 909289628739 :rem 8 
DATA128,150,136,0,1,215,64,215,64,128 
,125,10,0,20,130,0,0,128,96,105,0 
:rem 67 
DATA®,128,128,130,128,128,41,9,64,6,9 
,64,10,2,128,128,8,2,0,8,0 :rem 248 
FORJ=15232T015296: POKEJ, 9: NEXT: FORJ=1 
52537015273: READQ: POKEJ,Q:NEXT 
:rem 218 
DATAG,112,9,9,136,9,1,36,9,1,116,9,1, 
36,0,0,136,02,0,112,0 :rem 149 
V=53248: POKEV+21,Ø: POKE2Ø4Ø, 14: POKEV+ 
39,1: POKEV+28 , Ø: POKEV+46,Ø :геп 173 
POKE2Ø47,238: POKEV+16,Ø: POKEV+23,Ø: PO 
KEV+29,Ø:FORJ=1TO6 : POKE2Ø4Ø+J,13 
:rem 81 
POKEV+39+J, INT(RND(1)*3)+5:NEXT 
:гет 46 
FORJ-54272TO54299:POKEJ,0:NEXT:rem 72 
IFV<>53248THEN STOP :rem 115 
X=169: POKEV, X: POKEV+1, 200: POKEV+29,1: 
POKEV+23,1:POKEV+21,1:LV=1:W=4:E=8 
:rem 42 
POKE2947, 238: IFPEEK( 49172) <>206THENGO 
SUB2ØØØ :rem 41 
POKE49152,6:POKE49153,6: POKEV+46,Ø 
қ :rem 183 
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930 
988 


980 

996 

995 

1986 
1005 
1010 
1020 
1050 
1989 
1085 
1090 
1092 
1093 
1095 
1100 
1104 
1105 
1106 
1107 
1110 
E 
1120 
1136 
1146 


2000 
2002 


2004 
2096 
2020 


2030 


2040 


2050 


2080 


2090 


3000 


3010 


3050 


5000 


5Ү553000 :rem 147 
S=54272:POKES+24,15:POKES+5,1:POKES+6 
,128:POKES+4,129:POKES+1,12 :геп 249 
А=0 :rem 79 
ІҒА>11-ҺУ%3ТНЕМ6000 :rem 49 
IF (PEEK(56321)AND16 )=@THENGOSUB6 296 
:rem 28 
FORJ=1T06:IFRND(1)<(1-LV/28)ORX(J) <> 
ØTHEN1Ø5Ø :rem 185 
РОКЕ2040+7,13:Х(7)=180:Ү(Ј)=129:А=А+ 
18 :rem 22 
M%(J)=RND(1)*(5+LV/2)-2-LV/4: POKEV+3 
94+3,INT(RND(1)*3+0):R(J)=W  :rem 237 
POKEV+d3*2,X(J) : POKEV+1+J3*2,Y(J):POKE 
V+21,PEEK(V+21)OR(2TJ) :GOTO1280 
:rem 31 
NEXT гет 5 
FORJ=1T06:IFX(J)=ØTHENNEXT:GOTO111Ø 
:rem 14 
IFY(J)<16ØO0RR(J)=ETHEN1Ø95 srem 50 
POKEV+29, PEEK(V+29)OR(2ÎJ ) :POKEV+23, 
PEEK(V*23)OR(21J) : R(J) -E:M$(J)-M2(J) 
2 :rem 120 
FORN=S+7TOS+13: POKEN, Ø:NEXT :гет 4 
POKES+24, 15: POKES+12,2Ø7:POKES+13,Ø: 
POKES+8, 10: POKES+11,33 :гет 175 
Y(J)=Y(J)+R(J):X(J)=X(J)+M%(J) 
:rem 161 
POKEV+J*2,X(J):POKEV+1+J*2,Y(J) 
:rem 67 
IFY (J) <222ANDPEEK ( 2940+J3 )=13THEN1197 
:rem 56 
X (J ) =9: POKEV+21, PEEK(V+21)AND(255-2T 
J) :rem 193 
POKEV+29, PEEK(V+29)AND(255-2TJ):POKE 
V+23,PEEK(V+23)AND(255-2fJ) :rem 214 
NEXT :rem 8 
IF (PEEK(V+3@)AND1 )<>1THEN99G: rem 125 
POKEV+21,1:POKES+11,0 :rem 217 
POKES-1,4:FORI-1TO10:POKES-*24,15-ABS 
(6-1): FORJ=ØTOT : POKEV+39,J srem 59 
FORH=1TO1Ø:NEXT:NEXT:NEXT: POKES+24,1 
5:POKES+1,12 :rem 87 
GOSUB5929: K-PEEK(V-30) :50Т01000 
:rem 93 
J=@:READT: IFT<999THENSTOP гет 156 
READQ: IFQ>=OTHENPOKEJ+T, Q:J=J+1:GOTO 
2002 :rem 56 
IFQ<>-99 ТНЕМСОТО2000 :rem 233 
RETURN :rem 168 
DATA49172,206,0,192,173,0,192,2490,3, 
76,168,192 :rem 247 
DATA173,1,192,141,0,192,162,1,254,32 
,208,189,32,208,41,255,233,253,48,9 
:rem 202 
DATA222,32,208,222,32,208,222,32,208 
:rem 255 
DATA232,224,4,208,239,76,100,192,-1 
:rem 203 
DATA49252,173,1,220,41,4,208,15,173, 
0,208 :rem Ø 
DATA233,105,48,8,173,0,208,233,4,141 
, 0, 28 :гет 44 
DATA173,1,220,41,8,208,15,173,9, 288 
:rem 203 
DATA233,218,16,8,173,0,208,105,4,141 
,д,208,76,49,234,-1 :rem 164 
рАТА53000,120,169,20,141,20,3,169,19 
2,141,21,3,88,96,-99 :rem 232 
IFNS >6 THENNS=6 : SC=SC+375: GOSUB5814 
srem 153 


5001 
5002 
5010 
5013 


5016 
5020 


5030 
5031 
5032 
5033 

#55034 
5050 
5051 


6000 


6010 


6020 


6030 
6040 
6200 
6210 
6220 
6230 


6234 
6235 


6240 
6250 


6300 


FORJ=1962T01965-NS* 3STEP-3: POKEJ,65: 
POKEJ+1, 66: POKEJ+D, 9: POKEJ+1+D, 9: NEX 
Т :гет 245 
RETURN :гет 167 
S$=STR$ (SC) :FORJ=1TOLEN(S$):POKE1Ø29 
%7,А5С(МІр5(55,7,1)):МЕХТ :rem 177 
O=INT(SC/1ØØØ):IFO>PTHENP=0:NS=NS+1: 
GOSUB5ØØØ: GOSUB5Ø5Ø :гет 224 
RETURN :гет 172 
FORI=1TO2: POKE1064-NS*3+1, 28:NEXT:NS 
=NS-1: IFNS>=ØTHENRETURN :rem 87 
PRINT"(CLR)Í19 DOWN} {14 RIGHT}GAME O 


VER" :rem 194 
POKE56334, PEEK(56334)AND254 :rem 18 
POKE788, 49: POKE789, 234 ігеп 15 


POKE56334, PEEK(56334)OR1:POKE198,4:P 


0КЕ53249,0:РОКЕ54296,0 :rem 122 
ЕОКІ=1Т02000:МЕХТ:5Ү52048 ð :rem 79 
FORN=S+14TOS+290:POKEN,@:NEXT :rem 46 


POKES+24,15:POKES+19,61:POKES+15, 30: 
POKES+18,17:RETURN :rem 46 
POKEV+21,1:FORJ=5TO1STEP-1 : POKE49153 
,J:FORI=132-J* 26T0142-J* 2G: POKES+1,1 

:rem 112 
FORH=1T04@ : NEXT: NEXT : NEXT : SC=SC+LV*7 
5: GOSUB5919: FORJ=1TO3899 : NEXT: LV=LV+ 
1 :rem 43 
FORJ-2TO6:POKE49153,J:FORI-142-J*20T 
0132-J*20STEP-1:POKES-*1,1:FORH-1TO49 


:rem 168 
NEXT: NEXT: NEXT : W=W+1 : E=E+2 :rem 217 
50Т0980 :rem 164 


M$=(166-PEEK(V) )/7: POKEV+14, PEEK(V)+ 
12+M%:POKEV+15,195:1=3 :rem 68 
POKEV+21, PEEK(V+21)OR128: FORJ=195TO1 
30+LV* 2STEP-3 :rem 225 
POKEV+15,J:I=I+1: IFI=5THENI=Ø: POKEV+ 
14,PEEK(V+14)+M% :rem 152 
K=PEEK (V+3Ø):IF(KAND128)=ØTHENNEXT:G 
OTO6399 :rem 151 
FORN=S+14TOS+2Ø: POKEN, Ø:NEXT :rem 51 
POKES+24,15:POKES+19,14:POKES+15,2:P 
OKES+18,129 :rem 26 
FORJ-1TO6:1F(KAND(21J))-29THENNEXT 

:rem 
РОКЕ2040--7,15:5С-5С-25:605/В5010 

:rem 
POKEV+21,PEEK(V+21)AND127: RETURN 

:rem 


130 


126 


233 


Program 2: VIC Version 
(Use only with short MLX version and 8K expander.) 


4352 
4358 
4364 
437@ 
4376 
4382 
4388 
4394 
4400 
4406 
4412 
4418 
4424 
4430 
4436 
4442 
4448 
4454 


:169,147,032,210,255,169,214 
:008,141,015,144,169,032,003 
:162,000,157,242,030,232,067 
:224,242,208,248,169,032,117 
:162,000,157,228,031,232,066 
:224,022,208,248,162,000,126 
:189,162,017,157,242,150,185 
:232,224,242,208,245,162,075 
:000,189,148,018,157,228,020 
:151,232,224,022,208,245,112 
:169,000,141,060,003,169,090 
:064,141,046,145,169,141,004 
:141,020,003,169,017,141,051 
:021,003,169,192,141,046,138 
:145,076,170,018,162,000,143 
:189,242,150,041,015,201,160 
:000,240,009,168,200,152,097 
:201,008,208,002,169,005,183 


4460 
4466 
4472 
4478 
4484 
4490 
4496 
4502 
4508 
4514 
4520 
4526 
4532 
4538 
4544 
4550 
4556 
4562 
4568 
4574 
4580 
4586 
4592 
4598 
4604 
4610 
4616 
4622 
4628 
4634 
4640 
4646 
4652 
4658 
4664 
4670 
4676 
4682 
4688 
4694 
4700 
4706 
4712 
4718 
4724 
4730 
4736 
4742 
4748 
4754 
4760 
4766 
4772 
4778 
4784 
4798 
4796 
4802 
4808 
4814 
4820 
4826 
4832 
4838 
4в44 
4850 
4856 
4862 
4868 
4874 
4880 


:157,242,150,232,224,242,075 
:208,230,162,000,189,228,107 
:151,041,015,168,200,152,079 
:201,008,208,002,169,005,207 
:157,228,151,232,224,022,122 
:208,234,096,238,060,003,209 
:172,060,003,192,010,208,021 
:008,032,088,017,160,000,199 
:141,060,003,076,191,234,093 
:007,007,007,0027,007,007,204 
:007,007,007,007,000,000,196 
:007,007,007,007,007,007,216 
:007,007,007,007,006,006,220 
:006,006,006,006,006,006,222 
:006,007,000,000,007,006,218 
:006,006,006,006,006,006,234 
:006,006,005,005,005,005,236 
:005,005,005,005,006,007,243 
:007,007,007,006,005,005,253 
: 005,005, 005 , 005 , 005 , 005 , 252 
:007,007,007,007,007,007,014 
: 007,005 , 006 , 006 , 006 , 006 , 014 
:006,006,005,007,007,007,022 
:007,007,007,007,006,006,030 
:006,006,006,006,007,005,032 
:006,006,006,006,006,006,038 
:005,007,006,006,006,006,044 
:006,006,006,006,006,006,050 
:006,006,007,005,005,005,054 
:005,005,005,005,005,007,058 
: 006 , O06 , 06 , 906 , 006 , 006 , 068 
: 005,005 , 005 , 005 , 005 , 006 , 69 
:007,005, ØØ5 , ØØ5 , ØØ5 , ØØ5 , 076 
:005,005,005,007,006,005,083 
:005,005,005,005,005,005,086 
:005,005,005,006,007,007,097 
:007,007,007,007,007,007,110 
:007,007,006,005,005,005,109 
:005,005,007,007,007,007,118 
:005,006,007,007,007,007,125 
:007,007,007,007,007,007,134 
:006,005,007,007,007,007,137 
:007,007,007,007,005,006,143 
:006,006,006,006,006,006,146 
:006,006,006,006,006,005,151 
:007,007,007,007,006,006,162 
:007,007,005,006,006,006,165 
: 006,006, 006,006, 006,006,170 
:006,006,006,005,007,007,177 
: 006,006,006,006, 007,007, 184 
:005,005,005,005,005,005,182 
:005,025,005,005,005,005,188 
:005,005,007,007,006,006,200 
:169,010,141,065,003,169,215 
:008,141,066,003,169,014,065 
:141,067,003,169,004,141,195 
:069,003,169,002,141,070,130 
:003,169,008,141,071,003,077 
:169,015,141,014,144,169,084 
:170,141,013,144,169,050,125 
:141,128,022,162,000,169,066 
:037,157,000,030,232,224,130 
:242,208,248,162,000,189,249 
:000,128,157,000,028,232,007 
:224,000,208,245,189,000,078 
:129,157,000,029,232,224,245 
:000,208,245,189,131,023,020 
:157,000,029,232,224,064,192 
:208,245,169,255,141,005,003 
:144,169,000,141,072,003,027 
:141,073,003,032,118,019,146 
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4886 
4892 
4898 
4904 
4910 
4916 
4922 
4928 
4934 
4940 
4946 
4952 
4958 
4964 
4970 
4976 
4982 
4988 
4994 
5000 
5006 
5012 
5018 
5024 
5030 
5036 
5042 
5048 
5054 
5060 
5066 
5072 
5078 
5084 
5090 
5096 
5102 
5108 
5114 
5120 
5126 
5132 
S138 
5144 
5150 
5156 
5162 
5168 
5174 
5180 
5186 
5192 
5198 
5204 
5210 
5216 
5222 
5228 
5234 
5240 
5246 
5252 
5258 
5264 
5270 
5276 
5282 
5288 
5294 
5300 
5306 


:162,000,169,037,157,000,035 
:030,232,224,242,208,248,188 
:162,000,189,086,023,142,124 
:062,003,170,169,046,157,135 
:000,030,169,001,157,000,147 
:150,174,062,003,232,224,129 
:015,208,231,162,000,189,095 
:079,023,157,000,030,169,014 
:004,157,000,150,232,224,069 
:007,208,240,169,003,141,076 
:074,003,032,078,021,162,196 
:005,169,005,141,061,003,216 
:170,169,033,157,212,031,098 
:169,232,141,075,003,169,121 
:003,141,076,003,169,000,242 
:141,078,003,076,195,019,112 
:162,006,160,006,024,032,252 
:240,255,162,000,189,099,045 
:023,032,210,255,232,224,082 
:011,208,245,162,008,160,162 
:001,024,032,240,255,162,088 
:000,189,110,023,032,210,200 
:255,232,224,021,208,245,059 
:169,000,141,072,003,141,174 
:073,003,173,017,145,041,106 
:032,240,249,032,010,022,245 
:032,010,022,032,010,022,050 
:032,010,022,173,017,145,071 
:041,032,208,249,096,162,214 
:000,142,068,003,032,065,250 
:020,174,068,003,032,025,012 
:022,032,117,022,162,170,221 
:142,013,144,032,243,019,039 
:173,135,003,201,000,240,204 
:003,032,196,020,238,068,015 
:003,174,068,003,224,003,195 
:208,213,076,195,019,173,098 
:141,002,041,001,201,001,119 
:240,054,165,198,201,000,084 
:240,047,169,000,133,198,019 
:173,119,002,201,133,208,074 
:006,169,100,141,128,022,066 
:096,201,134,208,006,169,064 
:050,141,128,022,096,201,150 
:135,208,006,169,025,141,202 
:128,022,096,201,136,208,059 
:006,169,010,141,128,022,006 
:096,096,120,032,159,255,038 
:173,141,002,041,001,201,101 
:001,240,244,088,096,169,130 
:127,141,934,145,173, 032,286 
:145,162,255,142,034,145,187 
:041,128,208,021,174,061,199 
:003,169,032,157,212,031,176 
:232,224,010,144,002,162,096 
:009,142,061,003,076,221,096 
:020,173,017,145,041,016,002 
:208,021,174,061,003,169,232 
:032,157,212,031,202,224,204 
:255,208,002,162,000,142,121 
:061,003,076,221,020,173,168 
:135,003,201,001,240,082,026 
:173,017,145,041,032,208,242 
:075,173,061,003,010,0102,220 
:010,141,133,003,162,001,088 
:142,135,003,174,133,003,234 
:024,105,008,141,134,003,065 
:189,255,022,170,189,242,211 
:030,201,032,240,008,169,086 
:000,141,135,003,076,109,132 
:021,169,035,157,242,030,072 
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5312 
5318 
5324 
5330 
5336 
5342 
5348 
5354 
5360 
5366 
5372 
5378: 
5384 
5390 
5396 
5402 
5408 
5414 
5420 
5426 
5432 
5438 
5444 
5450 
5456 
5462 
5468 
5474 
5480 
5486 
5492 
5498 
5504 
5519 
5516 
5522 
5528 
5534 
5540 
5546 
5552 
5558 
5564 
5570 
5576 
5582 
5588 
5594 
5600 
5606 
5612 
5618 
5624 
5630 
5636 
5642 
5648 
5654 
5660 
5666 
5672 
5678 
5684 
5690 
5696 
5702 
5708 
5714 
5720 
5726 
5732 


:142,132,003,096,174,132,103 
:003,169,032,157,242,030,063 
:238,133,003,174,133,003,120 
:236,134,003,144,209,162,074 
:000,142,135,003,296,189,013 
:212,031,201,032,208,008,146 
:169,033,157,212,031,076,138 
:131,020,206,074,003,032,188 
:078,021,032,210,022,174,009 
:061,003,169,032,157,212,112 
:031,169,033,162,005,157,041 
:212,031,142,061,003,173,112 
:065,003,170,169,032,157,092 
:008,031,173,066,003,170,209 
:169,032,157,008,031,173,078 
:067,003,170,169,032,157,112 
:008,031,169,010,141,065,200 
:003,169,008,141,066,003,172 
:169,014,141,067,003,169,095 
:004,141,069,003,169,002,182 
:141,070,003,169,008,141,076 
:071,003,173,074,003,201,075 
:000,240,001,096,032,118,043 
:019,076,022,019,162,007,123 
:169,037,236,074,003,240,071 
:007,157,014,030,202,076,060 
:082,021,224,000,240,010,157 
:169,036,157,014,030,202,194 
:224,000,208,248,096,032,144 
:243,021,142,062,003,189,002 
:065,003,170,169,038,157,206 
:008,031,160,255,140,011,215 
:144,032,241,022,136,192,127 
:080,208,245,169,000,141,209 
:011,144,032,132,022,174,143 
:062,003,189,065,003,170,126 
:169,032,157,008,031,174,211 
:062,003,165,162,041,027,086 
:024,105,001,157,069,003,011 
:024,105,005,157,065,003,017 
:238,078,003,173,078,003,237 
:201,025,240,001,096,206,183 
:128,022,169,000,141,078,214 
:003,173,128,022,201,007,216 
:208,003,238,128,022,120,151 
:169,234,141,149,017,141,033 
:150,017,088,032,229,022,238 
:032,010,022,032,010,022,090 
:032,010,022,032,235,022,065 
:120,169,208,141,149,017,010 
:169,008,141,150,017,088,041 
:096,138,056,233,022,205,224 
:065,003,208,003,162,000,177 
:096,205,066,003,208,003,067 
:162,001,096,162,002,096,011 
:162,000,160,0002,200,192,212 
:000,208,251,232,224,000,163 
:208,246,096,142,063,003,012 
:189,065,003,170,169,032,144 
:157,008,031,174,063,003,214 
:173,061,003,221,069,003,058 
:176,009,222,065,003,222,231 
:069,003,076,063,022,254,027 
:065,003,254,069,003,189,129 
:065,003,024,105,022,170,197 
:224,220,144,020,165,162,237 
:041,007,174,063,003,024,132 
:105,001,157,069,003,024,185 
:105,005,170,076,104,022,058 
:189,008,031,201,033,208,252 
:003,076,236,020,169,034,126 


5738 :157,008,031,138,174,063,165 
5744 :003,157,065,003,096,162,086 
5750 :000,160,000,200,192,000,158 


5756 :208,251,232,224,030,208,253 
5762 :246,096,173,072,003,024,232 
5768 :105,010,141,072,003,144,099 
5774 :003,238,073,003,162,000,109 
5780 :160,006,024,032,240,255,097 
5786 :173,073,003,174,072,003,140 
5792 :032,205,221,173,072,003,098 


5798 :205,075,003,208,038,173,100 
5804 :073,003,205,076,003,208,228 
5810 :030,173,075,003,024,105,076 


5816 :232,141,075,003,173,076,116 
5822 :003,105,003,141,076,003,009 
5828 :173,074,003,201,007,240,126 
5834 :006,238,074,003,032,078,121 
5840 :021,096,162,255,142,013,129 


5846 :144,032,241,022,202,224,055 


5852 :080,208,245,169,170,141,209 
5858 :013,144,096,162,220,142,235 
5864 :013,144,096,162,170,142,191 


5870 :013,144,096,140,077,003,199 


5876 :160,000,200,192,000,208,236 
5882 :251,172,077,003,096,204,029 
5888 :182,161,139,118,096,075,003 


5894 :054,205,183,162,140,119,101 


5900 :097,076,054,206,184,163,024 
5906 :141,119,098,076,054,207,201 
5912 :185,163,142,120,098,076,040 
5918 :054,208,186,164,142,120,136 
5924 :098,076,054,209,187,165,057 


5938 :143,121,099,077,055,210,235 


5936 :188,166,143,121,099,077,074 
5942 :055,211,189,166,144,122,173 
5948 :099,077,055,212,190,167,092 


5954 :145,122,100,077,055,213,010 


5960 :191,168,146,123,101,078,111 
5966 :055,019,003,015,018,0045,193 
5972 :037,048,027,048,077,099,164 


5978 :118,142,167,181,197,210,081 
5984 :221,234,240,159,084,082,092 
5990 :069,078,067,072,070,073,019 


5996 :082,069,030,080,082,069,008 
6002 :083,083,037,066,085,084,040 
6008 :084,079,078,037,084,079,049 


6014 :037,080,076,065,089,255,216 


6020 :255,255,255,255,255,255,126 
6026 :255,231,231,231,195,066,067 
6032 :066,000,126,126,126,102,178 
6038 :000,000,102,126,126,255,247 


6044 :255,126,126,126,126,255,146 
6050 :255,024,024,024,060,189,226 


6056 :189,255,129,000,000,000,229 
6062 :000,000,000,000,000,126,044 
6068 :165,219,165,165,219,165,254 


6074 :126,013,013,013,013,013,121 


Guess Атетіса! 


(Article оп page 64.) 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Type COMPUTE Gazette Programs," "A 


Beginner's Guide To Typing In Programs," and 
“The Automatic Proofreader’ that appear before 
the Program Listings. 


рІМЕ$(25):КЕМ # OF LETTERS :rem 88 
GOSUB 20000 :rem 215 
PRINT" {HOME} {6 RIGHT} (8 DOWN}GUESS AME 
RICA!" :rem 26 
FOR Х=1Т02000:МЕХТ X :rem 74 
PRINT"(CLR]" :rem 204 
REM WAGON ACROSS SCREEN" :rem 118 


с050в20000 :rem 224 


PRINT" {HOME}" :гет 117 
FOR X=24 TO 5 STEP -1{2 SPACES} 

:rem 230 
PRINT"(9 DOWN)(24 RIGHT)"(27 SPACES) 

:rem 181 
PRINT TAB(X)"{5 SPACESJUIII" 
(6 SPACES) :rem 21 
PRINT TAB(X)"KBJIIIKG3GH н" 
(6 SPACES) gu ED :rem 251 
PRINT TAB(X)" H H EY3oKT3Q"; 

T уга :гет 174 

РОК А= 1 ТО 90:МЕХТ А :гет 243 
PRINT"(19 LEFT} {10 SPACES)"; :rem 198 


РКІМТ"{10 LEFT) (UP) {10 SPACES)"; 
:rem 88 
РКІМТ"{10 LEFT)(UP)Í19 SPACES)" 
:rem 30 
FOR A-1 ТО 20:МЕХТ А :rem 231 
PRINT" {HOME}" :гет 119 
NEXT X :rem 43 
PRINT"(19 DOWN}{5 RIGHT}{5 SPACES}UII 
т" :гет 209 
PRINT"(5 RIGHT}KBJIIIK@JGH H 
GE ~~~ srem 239 
PRINT"{5 RIGHT} H Н KYJQKTIQ" 
io лет 1382 


PRINT" {HOME} {7 DOWN} {4 RIGHT}CALIFORN 
IA'S GOLD" :гет 222 
FOR X=1TO3ØØØ:NEXT X :rem 124 
Ø REM - GAME DIRECTICNS :rem 229 
5 PRINT"(CLR]" :rem 47 
Ø PRINT"(6 SPACES}G U E S S{3 SPACES}A 
15 Ж С: АП ЦЕ". :rem SØ 

@ PRINT: PRINT :гет 28 


Ø PRINT"(2 SPACES}THE GAME YOU ARE GOI 
NG TO PLAY IS " :гет 83 
@ PRINT"BASED ON THE WORD GAME 'JUMBLE 
'.(2 SPACES] You" :rem 6 


@ PRINT"WILL HAVE 15 SECONDS TO UNSCRA 
MBLE THE" :rem 221 


Ø PRINT"JUMBLED LETTERS AND ENTER YOUR 
ANSWER." :rem 97 
@ PRINT:PRINT :rem 33 


Ø PRINT"{2 SPACES}IF YOU ARE CORRECT Y 
OU WILL BE GIVEN" :rem 74 
Ø РБІМТ"10 POINTS.{2 SPACES}IF YOU ARE 
WRONG CLUES WILL" :rem 177 


Ø PRINT"BE GIVEN BUT YOU WILL RECEIVE 
(SPACE) FEWER" :rem 52 

@ PRINT"POINTS FOR A CORRECT ANSWER." 
гет 174 
@ PRINT:PRINT :rem 29 


Ø PRINT"(19 SPACES]O CLUES - 10 PTS." 
:rem 250 
PRINT"(19 SPACES}1 CLUE{2 SPACES]- 


(2 SPACES}7 PTS." :rem 127 
РКІМТ"{10 SPACES}2 CLUES -{2 SPACES} 
DB LSE :rem 210 
РЕ1МТ"{1@ SPACES}3 CLUES -(2 SPACES} 
2 PISA :rem 209 
PRINT:PRINT :rem 34 


РКІМТ"{10 SPACES}PRESS 'C' TO CONTIN 
UE" :rem 198 
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169@ 
1695 
1700 
1710 
1720 
1721 
1722 
15723 
1724 
1725 


1726 
257/277, 


1728 


1729 
1781 


57:35) 


1736 


1739 
174Ø 


1756 
1760 
1770 


1771 
1772 


1773 
1774 


ЛӘ) 
1776 
1878702 
1778 
1779 
1786 
1781 
1782 
1783 
1784 
1785 


1796 
2900 


2903 
2905 
2906 
2910 


3000 
3001 


GET Z$:1F 25-""ТНЕМ1690 :rem 245 
IF Z$«»"C" THEN 1699 :rem 226 
PRINT"(CLR]" :rem 44 
PRINT:PRINT :rem 29 


PRINT"{2 SPACES}YOUR TOTAL NUMBER OF 
POINTS AT THE END"; :rem 49 
PRINT"OF THE GAME WILL DETERMINE HOW 


FAR" :rem 200 
PRINT"ACROSS THE UNITED STATES YOUR 
[SPACE] WAGON" :гет 177 
PRINT"WILL TRAVEL." :гет 21Ø 
PRINT: PRINT :rem 34 


PRINT"WILL YOU MAKE IT TO CALIFORNIA 


'S GOLD?" :гет 234 
PRINT: PRINT :гет 36 
РКІМТЅРС(10)"РКЕЅЅ "С! TO CONTINUE" 
:rem 96 
GET 75:ІЕ25-"" THEN 1728 :rem 249 
IF Z$«»"C" THEN 1728 :rem 226 


PRINT "{HOME}{11 DOWN}{16 RIGHT) 
{5 SPACES}":FOR А-1Т0150:МЕХТ A 

:rem 254 
GOSUB 20000 :rem 66 
PRINT" {HOME} (2Ø RIGHT) { DOWN} MAXIMUM 
{SPACE} SCORE: 58 " :rem 67 
PRINT" {HOME} {17 DOWN)" :rem 217 
PRINT"{32 RIGHT}19 PTS.":FOR Х=1ТО5@ 
Q:NEXT X :rem 179 
PRINT" {UP}{21 RIGHT)2Ø PTS.":FOR X-1 
TO 500:МЕХТ X :rem 7 
PRINT"(UP)(12 RIGHT)3Ø PTS.":FOR X-1 
TO500:NEXT X :rem 4 
PRINT"(UP)Í2 5РАСЕ5)40 PTS.":FOR X-1 
Т0500:МЕХТ X :rem 170 
FOR X-24 TO 5 STEP -1 :rem 36 
PRINT" {HOME} {11 DOWN} {24 RIGHT)" 


srem 40 
PRINT TAB(X)"{5 SPACES}UIII" :гет 83 
PRINT TAB(X)"KBJIIIKCIGH н" 
ay FE E: :rem 57 
PRINT TAB(X)" H H EYv3oET3Q":; 
= ae 7 rem 236 
FOR A= 1 ТО 90:МЕХТ А :rem 49 
PRINT"{1@ LEFT} {10 SPACES)"; :геп 4 


PRINT"(19 LEFT} {UP}{10 SPACES)"; 


:rem 150 
PRINT"(19 LEFT} {UP}{10 SPACES)" 
:rem 92 
FOR A-1 TO 20:МЕХТ A :rem 37 
PRINT"(HOME]" :rem 181 
NEXT X :rem 165 
PRINT"{11 DOWN}{5 RIGHT}{5 SPACES]UI 
тт” :гет 32 
PRINT"{5 RIGHT]EB3IIIKe3GH H 
ER. :гет 41 
PRINT"{5 RIGHT} H H KY3okT3Q" 
= :гет 195 
FOR Х-1Т01500:МЕХТ X :rem 184 


PRINT "{CLR}{2 RIGHT}{2 DOWN)REMEMBE 
Ro oo :rem 100 
PRINT"(5 RIGHT}{6 DOWN)PRESS {RVS}RE 


TURN{OFF} AFTER TYPING IN" :rem 139 
PRINT"{2 DOWN}{12 RIGHT}YOUR ANSWER. 
x :rem 108 


PRINT"{5 DOWN} {3 RIGHT}PRESS {RVS}DE 
L{OFF} KEY TO CORRECT SPELLING." 


:гет 126 
FOR X-1TO 2ØØØ:NEXT X :rem 175 
REM INFORMATION :rem 237 
DATA GUESS :rem 101 
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3005 
3010 


3015 
3020 


3030 


3040 


3056 
3060 
3065 


3070 


3080 


3090 


3100 


3119 


3120 


3130 
3140 
3150 


3160 


3170 


3180 
3190 


3210 


3230 


3240 


3260 


3270 
3280 
3290 


3295 


DATAWORD, CLUE, CLUE CLUE srem 241 


DATA FLORIDA, IN THE SOUTH, BOUGHT FRO 
M SPAIN FOR $5 MILLION :rem 14 
DATA GROWS CITRUS FRUIT snem 217 


DATA LOUISIANA, GREATEST LAND DEAL IN 
HISTORY, COST $15 MILLION :rem 16 
DATA BOUGHT FROM FRANCE ІМ 1803 
:геп 239 
DATA CALIFORNIA, GOLD RUSH - 1849,0N 
{SPACE}WEST COAST, MOVIE CAPITAL OF 
(sPACE])U.S. :rem 25 
DATA ALAMO, OLD SPANISH MISSION, WAR 
WITH MEXICO, REMEMBER THE...:rem 140 
DATA JEFFERSON, BOUGHT LOUISIANA TER 
RITORY, PRESIDENT :rem 205 
DATA DECLARATION OF INDEPENDENCE 
:rem 5 
DATA OREGON, TRAIL,IN THE NORTHWEST,F 
ROM ENGLAND IN 1846 BY TREATY 
:rem 255 
DATA TEXAS, LONE STAR REPUBLIC, OIL 
{SPACE}CAPITAL OF U.S., DALLAS 
:rem 216 
DATA FRONTIER, MOVED WEST, PLACE WHER 
E SETTLEMENT ENDS, WILDERNESS BEGINS 
E :rem 88 
DATA ALASKA,EXTREME NORTH,ESKIMOS LI 
VE HERE,BOUGHT FROM RUSSIA IN 1867 
:rem 100 
DATA HAWAII, HAD A MONARCHY, TROPICA 
L PACIFIC PARADISE, PEARL HARBOR 
:rem 77 
DATA INDIANS,WARS AGAINST SETTLERS,A 
MERICAN NATIVES,FOUGHT WITH ARROWS 
:rem 101 
DATA WASHINGTON,GENERAL,CITY NAMED A 
FTER HIM,FIRST PRESIDENT :rem 137 
DATA JACKSON, PRESIDENT,FOR THE COMM 
ON MAN, FROM THE WEST :rem 226 
DATA PIONEER, 1ST PERSON INTO AN AREA 
, MOVED WEST, FOUGHT INDIANS:rem 155 


DATA GOLD,FOUND AT SUTTERS MILL - 
{2 SPACES]CA.,DISCOVERED IN 1849, PR 
ECIOUS METAL :rem 24 


DATA MISSISSIPPI,WESTERN BORDER OF U 
-S. IN 1783,BETWEEN U.S. AND LOUISIA 
NA :rem 9 
DATA RIVER :rem 116 
DATA LINCOLN, IN NEBRASKA, BORN IN L 
OG CABIN, PRESIDENT DURING CIVIL WAR 
:rem 55 
DATA SLAVERY,NORTH OPPOSED IT,SOUTH 
(SPACE)FAVORED IT,CIVIL WAR ENDED IT 
:rem 97 
DATA KENNEDY, 20TH CENTURY PRESIDENT 
‚ CUBAN MISSILE CRISIS, ASSASSINATED 
:rem 25 
DATA PILGRIMS,EARLY SETTLERS,IN MASS 
ACHUSETTS,STARTED THANKSGIVING 
:rem 228 
DATA COLUMBUS, SAILED FOR SPAIN, THOU 
GHT EARTH WAS ROUND,DISCOVERED AMERI 
CA :rem 203 
DATA REVOLUTION,WAR,FOUGHT AGAINST E 
NGLAND, 1776 :rem 13 
DATA CROCKETT,HERO WHO DIED AT THE A 
LAMO,COONSKIN CAP,DAVY :rem 72 
DATA ROOSEVELT, PRESIDENT DURING WOR 
LD WAR II, RELATED TO TEDDY :rem 156 
DATA MOST TERMS :rem 187 


3300 


3310 
3320 


3325 
3330 


3340 


3350 


3360 
3365 


3370 


3800 
3995 
3999 
4000 
4005 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
5000 
5010 
5020 
5040 
5050 
5060 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
6000 


6010 
6020 
6030 
6040 
6050 


6060 
6070 


DATA GETTYSBURG, IN CIVIL WAR, BATTLEF 
IELD, LINCOLN'S FAMOUS ADDRESS 

:гет 23Ø 
IS MADE UP OF THEM, 
POLITICAL UNITS, THERE ARE SØ:rem 65 
DATA AMENDMENT, THERE ARE 26 OF THEM 
„ADDITIONS TO CONSTITUTION :rem 67 
DATA ERA DIDN'T MAKE IT :rem 20 
DATA FRANKLIN, COLONIAL STATESMAN, INV 
ENTOR, BENJAMIN :rem 118 
DATA EISENHOWER, FAMOUS GENERAL,IN W 
ORLD WAR II, PRESIDENT BEFORE KENNED 
ү: :rem 52 
DATA MORMONS, RELIGIOUS GROUP, LED BY 
{SPACE}BRIGHAM YOUNG,SETTLED IN UTAH 

:rem 174 

DATA CARTER, 20TH CENTURY PRESIDENT,F 
ROM GEORGIA, FAMOUS FOR PEANUTS:rem 5 
DATA BUFFALO, ANIMAL,HUNTED BY INDIAN 
S,HIDE USED FOR TENTS :rem 73 
DATA SCOTT,U.S. GENERAL IN MEXICAN W 
AR,CAPTURED MEXICO CITY,WINFIELD 


DATA STATES,U.S. 


srem 40 
БАТАН, К :гет 17 
P=g srem 151 
С=@ :rem 142 
REM RANDOM GENERATION ОЕ DATA :rem 4 
C=C+1:REM WORD COUNTER :геп 98 
DM=6 :гет 195 
DM=DM+1 :гет 129 
READ AS,AS,AS$,A$ ігеп 251 
IF A$«»"*" THEN 4020 :rem 153 
DM-DM-1 :rem 134 
RESTORE :rem 238 
R=INT(RND(1)*DM)+1 :rem 19 
FOR T=1TOR-1 :rem 200 
READ А5,А5,А5,А5 :гет 1 
NEXT T :гет 88 
READ W$,C$(1),C$(2),C$(3) :rem 159 
REM SCRAMBLED WORD ROUTINE :rem 152 
FL=Ø :rem 197 
L-LEN(W$):S$-2"" :rem 45 
FOR M-1TOL :rem 90 
ES(M)2MIDS$(W$,M,1) :rem 174 
NEXT M :rem 87 
FOR M-1TOL :rem 94 
R=INT((L-M+1)*RND(1)+1) :rem 248 
SS=SS+ES(R) :rem 40 
H$=E$(R) :rem 124 
ES (R)=ES (L-M+1) :rem 237 
ES (L-M+1)=HS$ :rem 78 
NEXTM :rem 86 
IFL-1 THEN 6000 :rem 9 
ІЕ55<> W$ THEN 6000 :rem 188 
FL=FL+1 :rem 138 
IFFL>=5 THEN 6000 :rem 148 
GOTO59020 :rem 207 
REM INITIALIZE SCREEN VARIABLE 
(6 SPACES}LOCATION :rem 251 


SS$-"(HOME)Í4 RIGHT} {5 DOWN]":REM SC 
RAMBLED :rem 153 


WWŞ=" {HOME} {2 RIGHT} {7 DOWN]":REM CO 
RRECT WORD ігеп 75 
СС$(1)="{НОМЕ}{5 RIGHT} {11 DOWN}":RE 
M CLUE 1 :гет 77 
СС$(2)="{НОМЕ}{5 RIGHT} {13 DOWN]":RE 
M CLUE 2 :гет 114 
СС$(3)="{НОМЕ}{5 RIGHT}{15 DOWN}":RE 
M CLUE 3 :гет 151 
REM BEGIN GAME :rem 47 
GOSUB 20000 :rem 63 


6075 


6080 
6100 
6111 
6115 


6120 
6125 


6130 
6140 
6150 
6151 
6155 


6160 
6165 
6170 
6180 
6191 
6200 
6205 


6207 
6210 
6220 
6231 
6235 
6240 
6245 
6249 
6250 
6260 


6261 
6262 
6270 
6280 


6299 
7000 
7005 
7010 
7020 
7030 
7040 
7050 
7055 
7056 
7060 
7070 


7080 
7090 


7105 


PRINT" {HOME} {DOWN} (17 RIGHT}PLAYING 


{SPACE}FOR: 10 PTS. :гет 77 
РВІМТ55555 :rem 156 
PRINT WW$; :гет 97 
GOSUB 7000 :rem 16 


IF LEFT$(X$,LEN(W$))=W$ THEN Р=Р+10: 

REM SCORE :rem 57 
IFLEFT$(X$,LEN(W$))-W$GOTO8000:rem 4 
PRINT" {HOME} {DOWN} {30 RIGHT} 7" 


:гет 96 
PRINTCC$(1)C$(1) :rem 108 
PRINTWWS; :rem 101 
REM INPUT Х$ :rem 188 
GOSUB 7000 :rem 2Ø 
IF LEFT$(X$,LEN(W$))-W$ THEN P=P+7 
srem 121 
IF LEFT$(X$,LEN(W$))-W$GOTO8090 
:rem 8 
PRINT" {HOME} {DOWN} {30 RIGHT) 5" 
:гет 98 
PRINTCC$(2)C$(2) :rem 114 
PRINTWWS; :rem 105 
GOSUB 7000 :rem 24 
IF LEFTS$(X$,LEN(W$))-W$ THEN P=P+5 
:rem 110 
IF LEFT$(X$,LEN(W$))-W$ GOTO 8002 
:rem 8 
PRINT" {HOME} {DOWN} (3Ø RIGHT) 2" 
:гет 92 
PRINTCC$(3)C$(3) :rem 111 
PRINTWWS; :гет 100 
GOSUB 7000 :гет 19 
IF LEFT$(X$,LEN(W$))-W$ THEN P=P+2 
:rem 115 
IF LEFTS$(X$,LEN(W$))-W$ GOTO 8000 
:rem 7 
FOR Х-1Т01000:МЕХТ X ігеп 179 


PRINT" {HOME} {DOWN} (30 RIGHT} 2" 


:гет 96 

PRINT" (HOME) (4 RIGHT}{7 DOWN}"WS" < 
<<" :rem 120 
PRINT" {HOME} {RIGHT} {29 DOWN} PRESS" 

:rem 176 

PRINT"ÍRIGHT]'C' то" :rem 241 

PRINT" {RIGHT} CONTINUE" :rem 35 

СЕТ Z$:1FZ$-""THEN 6270 :rem 243 


IF C=5 THEN GOTO{2 SPACES}9ØØØ:REM Т 


О END ігеп 221 
IF C<5 THEN 4ØØØ:REM NEXT QUES. 

ігеп 208 
REM 15 SEC. TIME DELAY FOR ANS. 

:rem 175 
PRINTWWS "? "; :rem 233 
POKE204,0:REM TURNS CURSOR ON:rem 30 
Х$="" :rem 198 


FOR Т=1 ТО 1000 :REM 15 SEC.:rem 100 
GET R$: IFRS$=CHR$(13) THEN 7Ø9Ø:REM R 
ETURN KEY BEING HIT ігеп 131 
IF R$=""THEN 7080:REM NO ANSWER BEIN 


G ENTERED :гет 71 
IF R$-CHR$(20) THEN 7005 :rem 194 
IF RS$-CHR$(157) THEN 7005  :rem 254 


X$=X$+R$:REM ACCUMULATES INPUTS 


:rem 219 
PRINTR$;:REM EACH LETTER AS INPUT 

:rem 47 
NEXT T:REM TIME COUNT :rem 56 


РОКЕ 204,1:REM TURNS OFF CURSOR 
:rem 101 
:rem 158 
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PRINT UL 


7120 
8000 


8010 
8030 


8034 
8041 
8050 
8060 


8070 
8080 
8090 


8100 
8110 
8120 
8125 
8130 


9000 
9010 
9015 
9020 


9040 
9050 


9060 
9070 
9080 


9090 
9100 
9110 
9120 
9130 
9140 
9150 
9160 
9170 
9180 


9190 


9200 
9210 
9220 


9230 


9240 
9250 
9260 
9261 
9262 
9263 
9264 


9265 


9270 


9272 
9275 
9280 
9290 
9300 


RETURN :rem 170 
REM CORRECT RESPONSE SEQUENCE 

:rem 134 
GOSUB 20000 :гет 59 


PRINT" {HOME} {3 RIGHT} {3 DOWN} CORRECT 


:rem 75 
FOR X= 5 TO 28 STEP 2 srem 251 
PRINT TAB(X) "CORRECT" :rem 48 
NEXT Х :rem 100 


PRINT" {HOME} {5 RIGHT} {12 DOWN} 


{5 SPACES}UIII" :rem 63 
PRINT"{5 RIGHT} EBIIIIE@ GH 
{SHIFT-SPACE}H" 77 :rem 230 
PRINT"(5 RIGHT} H H KYIQKTIQ" 
"x ~ rem 190 
PRINT" {HOME} {RIGHT} {20 DOWN} PRESS" 
:rem 179 
PRINT" {RIGHT} 'C' TO" :гет 235 
PRINT" {RIGHT} CONTINUE" :гет 29 
GET Z$:1FZ$-"" THEN8129 :rem 235 
IF Z$«»"C" THEN 8120 :rem 216 
IF C«5 THEN 4000:ВЕМ NEXT QUES. 
:rem 203 
REM GAME ENDING AND SCORE :rem 203 
GOSUB 20000 :rem 60 
F=F+1:REM FLASHING SCORE :rem 218 
PRINT" {HOME} (2 DOWN}{24 RIGHT) "P" P 
TSAR :гет 66 
FOR Х=1 TO 2ØØ:NEXT X :rem 128 
PRINT" {HOME} {2 DOWN} {24 RIGHT} 
{10 SPACES)" :rem 149 
FOR Х=1ТО2@@:МЕХТ X :rem 130 
IF F<5 THEN GOTO 9915 :rem 77 
PRINT" {HOME} {2 DOWN} {24 RIGHT} "P" P 
BS :гет 72 
IF P>=40 THEN 9640 :rem 146 
ТЕ Р>=3@ THEN 945Ø :rem 136 
IF P>=2Ø THEN 928Ø :гет 137 
ТЕ P<2Ø THEN 913@ :гет 69 
REM P<2Ø :rem 159 
FOR X=24 TO 23 STEP -1 :rem 82 
PRINT" {HOME} " :гет 179 
PRINT"(9 DOWN)(24 RIGHT)" :гет 242 
PRINT ТАВ(Х)"{5 SPACESJUIII" :rem 82 
PRINT TAB(X)"KBJIIIE@IGH н" 
QS TARN :rem 56 
PRINT TAB(X)" H H ЕҮЗОЕТЯО"; 
E mir E теп 295 
FOR A- 1 TO 99:NEXT A :rem 39 


PRINT"{1@ ІЕЕТ){10 SPACES}";:rem 250 
PRINT"(19 LEFT} {UP} {10 SPACES)"; 


:rem 140 
PRINT"{1Ø LEFT} {UP} {10 SPACES)" 
:rem 82 
FOR А=1 TO 2Ø:NEXT A :гет 36 
PRINT" {HOME} " :гет 180 
NEXT X :rem 104 
PRINT" {HOME} " :rem 182 
PRINT"(9 DOWN} {24 RIGHT)" :гет 245 
PRINT ТАВ(Х)"{5 SPACESJUIII" :rem 85 
PRINT TAB(X)"EB3IIIKG3GH н" 
VUES КҮШ :rem 59 


PRINT TAB(X)" H H EY3oKT3Q"; 
:rem 238 
PRINT" {HOME} (16 DOWN}{13 RIGHT} STUCK 


ON EAST COAST." ігеп 59 
FOR Х=1 ТО 5000:МЕХТ X :rem 186 
GOTO 13000 :rem 4 
REM Р-20-29 :rem 62 
PRINT" {HOME}" :rem 184 
FOR X=24 ТО 16 STEP -1 :rem 82 
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9310 
9320 
9330 


9340 


9350 
9365 
9370 


9380 


9390 
9400 
9405 
9410 
9411 
9412 
9413 


9414 
9420 


9430 
9440 
9445 
9446 
9450 
9451 
9455 
9460 
9470 


9480 


9490 
9500 
9510 


9520 


9530 
9540 
9550 
9560 
9570 
9580 
9590 


9600 


9610 


9620 
9630 
9640 
9650 
9660 
9670 
96860 
9690 


9700 
9710 
9720 
9730 


9740 


PRINT"(9 DOWN)(24 RIGHT)" :гет 239 
PRINT TAB(X)"{5 SPACES}UIII" :rem 79 
PRINT TAB(X)"EB3IIIKG3GH н" 
ZEITEN QM TEE :rem 53 
PRINT TAB(X)" H H ЁҮЯОКТЯО"; 
Nu Gia) таш 232 
FOR A= 1 TO 90:МЕХТ А :гет 45 
РКІМТ"{10 ҺЕЕТ)(10 SPACES)"; :rem 5 


РКІМТ"{10 LEFT}{UP}{1@ SPACES)"; 
srem 146 


PRINT" {10 LEFT} {UP} {10 SPACES)" 

:гет 88 
FOR А=1 ТО 20:МЕХТ А :rem 42 
PRINT" {HOME}" :гет 177 
NEXT X :rem 105 
PRINT" {HOME}" :гет 178 
PRINT"{9 DOWN}{24 RIGHT}" :rem 241 
PRINT TAB(X)"{5 SPACES}UIII" :rem 81 

PRINT TAB(X)"KBJIIIK@IGH H" 
ETE EET А :rem 55 

PRINT TAB(X)" H Н EYIQETIQ"; 
А АА, ie сеп 234 


PRINT" {HOME} {15 DOWN} {8 RIGHT}ALMOST 
TO THE MISSISSIPPI." :rem 121 
FOR X=1TO5ØØØ:NEXT X :rem 182 
GOTO 13000 :rem 254 
REM 32-39 PTS. :rem 219 
PRINT" {HOME}" :rem 187 
FOR X =24 TO 11 STEP -1 :rem 83 
PRINT" {HOME}" :rem 183 
PRINT"{9 DOWN}{24 RIGHT}" :rem 249 
PRINT TAB(X)"Í5 SPACES}UIII" :rem 84 

PRINT TAB(X)"KBJIIIR@IGH н" 
:rem 58 

PRINT TAB(X)" H H EY3okT3Q"; 
3 :геп 237 
FOR А=1ТО9@:МЕХТ A :rem 50 


PRINT"{19 LEFT} {10 SPACES]";:rem 252 


РВІМТ"{10 LEFT) (UP) (1Ø SPACES)"; 
:гет 142 
РКІМТ"{10 LEFT} {UP}{10 SPACES)" 
:гет 84 
FOR А=1 ТО 20:МЕХТА :rem 38 
PRINT" {HOME}" :rem 182 
NEXT X :rem 106 
PRINT" {HOME} " :геш 184 
PRINT"(9 DOWN}{24 RIGHT)" :rem 247 
PRINT TAB(X)"{5 SPACES]UIII" :rem 87 
PRINT TAB(X)"KBIIIIR@IGH H" 
ET DE yet :rem 61 
PRINT TAB(X)" H Н EY3oET3Q"; 
:rem 231 


PRINT" {HOME} {15 DOWN} {3 RIGHT}MADE I 
T TO THE ROCKIES" :rem 82 
FOR Х=1Т05000:МЕХТ X :rem 183 
GOTO 13000 :rem 255 
REM 40 OR MORE :rem 239 
FOR X-24 TO 5 STEP -1 :rem 40 
PRINT"(HOME]" :rem 185 
PRINT"Í9 DOWN}{24 RIGHT)" :rem 248 
PRINT TAB(X)"{5 SPACES]UIII" :rem 88 

PRINT TAB(X)"EB3IIIK03GH н" 
араас обі :гет 62 

PRINT TAB(X)" Н Н КҮЯОЁТЯО"; 
:rem 232 
FOR А= 1 ТО 90:МЕХТ А :гет 45 
PRINT"(19 LEFT} {19 SPACES)"; :геп 0 


PRINT"Í19 LEFT) (UP) {10 SPACES)"; 
:гет 146 
PRINT"{1Ø LEFT} {UP} {10 SPACES)" 
:rem 88 


975@ 
9760 
9770 
9780 
9790 
9800 
9810 
9820 


9825 

9830 

9840 

9850 

13000 
13010 
13020 
13025 
13030 
13040 
13060 
14500 
14510 
14520 
14530 


14540 


14550 
14999 


19999 
20000 
20010 
20020 


20030 
20040 
20050 
20060 
20070 
20080 
20090 
20100 
20110 
20120 
20130 
20140 
20150 
20160 
20170 
20180 
20190 
20200 


20210 


FOR А=1 ТО 20:МЕХТ А :rem 42 
PRINT" {HOME}" :гет 186 
NEXT X :гет 110 
PRINT" {HOME}" :rem 188 
PRINT" {9 DOWN} {24 RIGHT)" :гет 251 
PRINT TAB(X)"{5 SPACES}UIII" :rem 82 
PRINT TAB(X)"EB3IIIK03GH н" Н" rem 56 
PRINT TAB(X)" H H н ЁҮЗОЁТЯО"; 

:гет 235 
PRINT" {HOME} {6 DOWN) {4 RIGHT} HOORAY! 
E :rem 236 
PRINT" {HOME} {16 DOWN} {3 RIGHT}CALIFO 


RNIA AND GOLD!" :гет 17 
FOR Х-1Т05000:МЕХТ X :гет 187 
GOTO 13@@@ :гет 3 


PRINT"{CLR}{2 DOWN}DO YOU WANT TO P 
LAY AGAIN?" :гет 188 
PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 

ігеп 101 
PRINT"{11 RIGHT}TYPE {RVS}P{OFF} TO 


PLAY" : PRINT: PRINT :rem 163 
PRINT"{11 RIGHT}TYPE {RVS}Q{OFF} TO 
QUIT" :rem 40 
GET 75:ІЕ Z$="" THEN 13030 :геп 67 
IF Z$="P" THEN 2900 :гет 208 
IF Z$«» "P" AND 2$ <> "О" THEN 1303 
ø :rem 155 
REM BYE! :гет 223 
GOSUB 20000 :rem 109 
PRINT" {HOME} {5 DOWN} {4 RIGHT) BYE! 
:rem 136 
PRINT"{5 DOWN} {4 RIGHT}SEE YOU IN C 
ALIFORNIA!" trem 1 
FOR X-1TO5000:NEXT X :rem 228 
PRINT" {HOME} (22 DOWN} " ігеп 89 
END :гет 231 
REM MAP SUBROUTINE :rem 231 
PRINT"(CLR]" :rem 86 
PRINT SPC(2)"Zzzz" :rem 187 
PRINT SPC(3)"Z"SPC(1)"ZZZZZZ"SPC(25 
)"zz" :rem 103 
PRINT SPC(2)"Z"SPC(8)"ZZZZZZZZZZ"SP 


Gra ASPO (NE :rem 128 
PRINT SPC(2)"Z"SPC(18)"ZZ"SPC(12)"Z 
SPD) :rem 225 
PRINT SPC(2)"Z"SPC(19)"ZZZZ"SPC(7)" 
ZZ"SPC(2)"Z" :rem 69 
PRINT SPC(1)"Z"SPC(23)"Z"SPC(1)"Z"S 
Po 5D SPe( 2M :rem 92 
PRINT SPC(1)"Z"SPC(22)"Z"SPC(1)"Z"S 
PC(1)"Z"SPC(2)"ZZ"SPC(3)"Z":rem 186 
PRINT SPC(I)"Z"SPC(22)"z"SPC(1)"Z"S 
PC(1)"Z"SPC(1)"ZZ"SPC(4)"Z":rem 187 


PRINT SPC(1)"Z"SPC(23)"Z"SPC(2)"ZZZ 
ESPE (4) NE :rem 140 
PRINT SPC(1)"Z"SPC(32)"Z" с:гет 192 
PRINT SPC(1)"Z"SPC(32)"Z"  :rem 193 
PRINT SPC(1)"Z"SPC(32)"Z"  :rem 194 
PRINT SPC(1)"Z"SPC(32)"Z"  :rem 195 
PRINT SPC(2)"Z"SPC(31)"Z"  :rem 196 
PRINT SPC(3)"Z"SPC(30)"Z"  :rem 197 


PRINT SPC(3)"ZZZ"SPC(27)"Z":rem 128 
PRINT SPC(6)"Z"SPC(25)"Z" :геп 206 
PRINT SPC(7)"ZZZ"SPC(1)™Z"SPC(19)"Z 
" :rem 13 
PRINT SPC(10)"Z"SPC(1)"Z"SPC(13)"ZZ 
бре (I) eZ :rem 146 


PRINT SPC(13)"Z"SPC(7)"ZZZ"SPC(1)"Z 
"SPC(4) "Z"SPC(I1)"z" :rem 15 
PRINT SPC(14)"ZZZ"SPC(3)"Z"SPC(3)"Z 
"SPC(6)"Z"SPC(1)"z" :rem 17 


20220 


20230 
20500 


PRINT SBE( LD) Z HS BCDE Spe) 


SPECI) AM :гет 3 
PRINT SPC(18)"Z"SPC(13)"ZZ":rem 213 
RETURN :rem 215 


Sea Route To India 


(Article on page 66.) 


Before typing in programs, please refer to “How 
To Type COMPUTE!s Gazette Programs,” “A 
Beginner's Guide To Typing In Programs,” and 
"The Automatic Proofreader" that appear before 
the Program Listings. 


BEFORE TYPING.. 


70 
gat 


2. 


73 


74 


76 
Jm 


DIM M$(7),M$(6):X-RND(-TI) 
FG=1.6:KB=151:HP=72:PRINT"{CLR}":IF PE 
EK(1024)-32THENKB-197:HP-29 
MS (Ø)= 
NDS":M$(5)- 
DH$="{2 SPACES}KLI{DOWN}{3 LEFT 
K*J {RVS} {3 SPACES) K*3(DOWN] 

{4 LEFT) {4 SPACES} {DOWN} {4 LEFT} 
{4 SPACES} {DOWN} (5 LEFT) (RVS)£ 
{3 SPACES) (OFF) £(DOWN) (3 LEFTTELÀ3 
{DOWN} {4 LEFT)E*3(RVS)(6 SPACES 
{oFF} £" 
М$(2)="САРЕ VERDE ISLANDS" :M$(3)="ROUN 
DED CAPE OF GOOD HOPE" 
М$(4)="РІСКЕР UP INDIAN PILOT":rem 116 
YS$=" -(DOWN) {LEFT} {RVS}+{DOWN} 


:rem 45 
srem 52 


""3MS$(1)="STOPPED AT CANARY ISLA 
"SIGHTED CALCUTTA" :геп 21 


:геп 122 


:гет 65 


LEFT} 


{OFF}-TDOWN} {2 LEFT)K*3(RVS) {ОЕЕ}& 
" ;HS$=" {RED} -(DowN) (LEFT) {RVS}Z{OFF} 
{DOWN} {LEFT}-TDown} {2 LEFT} E*3{RVS} 


{SPACE} (oFF) £" 
MSS-"(RIGHT)"4CHRS$ (20) +" {DOWN} " : MS$-MS 
5%М59:М55-М55%М55 
WH$(1)2"NO WIND AT ALL":WH$(2)="VERY С 


78 


80 


82 


:гет 1Ø8 


srem 12 


ALM" :WH$(3)="FAIR WINDS" :гет 12Ø 
WH$(4)2"GOOD WINDS" :WH$(5)="GOOD WINDS 
":WHS(6)="STRONG WINDS" :rem 250 


84 


90 
91 


М%(1)-50:М%(2)-100:М%(3)-150:М%(4)-200 
:М%(5)-250:М%(6)-300:М%(7)-50 
GOSUB1 6000 

DT$="{2 LEFT}. {DOWN} {LEFT}. {2 LEFT}. 


srem 225 
srem 224 


{2 LEFT}. {DOWN} {LEFT}. {DOWN} {LEFT}. 


{DOWN} {LEFT}. (DOWN) {LEFT}. 


{2 TEET) 


(DOWN) (LEFT) . (DOWN) (LEFT) . (DOWN) (LEFT) 
. {DOWN} {OFF}. {RVS} {OFF} . (DOWN) {OFF}. 
{RVS} {OFF}. {RVS} {OFF}. (DOWN) {LEFT}. 
{DOWN} (LEFT) . {DOWN} {LEFT}. (DOWN) {LEFT} 


- {DOWN} {LEFT} ." 
DTS=DT$+" {DOWN} {LEFT}. {DOWN} {LEFT}. 


92 


:rem 139 


{DOWN} {OFF}. {DOWN} {OFF}. {RVS} {OFF}. 

{RVS} {OFF}. {RVS} {OFF}. {UP} {LEFT}. {UP} 
{OFF} . {UP} {OFF} . {UP} {LEFT}. {UP} {OFF}. 
{UP} (LEFT) . {UP} (LEFT) . (UP) (LEFT) . (UP) 
{OFF} . {UP} {OFF} . {RVS} {OFF} . {RVS} {OFF}. 


{RVS} {OFF}." 


:rem 54 


93 DTS=DT$+"{RVS} {OFF}. {UP} (OFF) . {UP} 
{ТЕЕТ}." :rem 15 
104 DEF FNR(X)=INT(RND(1)*X+1) :rem 176 
105 F$-"(2 5НІЕТ-5РАСЕ)<.Е2 G3V 
(13 SHIFT-SPACE}(.k2 IJN 
(34 SHIFT-SPACE}" ігеп 17 
106 Е$=Е$+"{28 5НІЕТ-5РАСЕ)" :rem 151 


107 Е5-Е5%"<.Е2 +3V(4Ø SHIFT-SPACE}(, 


Е2 +3N(15 SHIFT-SPACE)" 


:rem 114 
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108 
110 
120 


122 


125 
130 
500 
510 
520 
538 
550 


555 
560 


796 

800 

1000 
1002 
1005 
1006 
1007 
1008 
1010 
1020 
1030 
1040 
1050 


1055 
1058 


1060 


1070 
1100 


1110 


1150 
1155 
1577 


1159 
1200 


1210 


Е$=Е$+"{28 SHIFT-SPACE}" :гет 
D$=" (HOME) (32 DOWN)" :rem 
S$-"(3 5РАСЕ5)ЕМЯ(2 SPACES} EM3 
{DOWN} (5 LEFT]K3 +3 E2 -3(DOWN) 
(6 LEFT)K3 £3 Е2 £3{DOWN} 

(6 LEFT)K3 +3 £2 +3{DOWN} {4 LEFT} 
Есі EM3 {DOWN} {6 LEFT}&*3{RVS} 


153 
174 


{SPACE}22Z {OFF}£" :гет 135 
sss="{3 SPACES}KM9{2 SPACES} EM3 
{DOWN} {5 LEFT}K3 +9 E2 +3 {DOWN} 

(6 LEFT)K3 £3 £2 £3(DOWN) 

{6 LEFT}K3 +3 £2 +3{DOWN} {4 LEFT} 

Есі KMJ {DOWN} {6 LEFT)EK*3(RVS) 

{5 SPACES} (OFF) £ :rem 44 
GOSUB1 5000 d :rem 14 
GOTO500 :rem 98 


ML=8 : GOSUB1 9969 : FORWK=1T052 :Z=FRE(@): 
FORI=1T0O19:GETAS :NEXT :гет 149 
GOSUB1469@: POKE53281,3: REMWEATHER,MIL 


ES :rem 170 
GOSUB10000:REM LOG :гет 8 
GOSUB11996:REM SITUATION :rem 232 


X=FNR(GG) : IFGG=6THENX=2* FNR(4)-1 

:rem 167 
IFML«1200ANDX-4THENX-1 :rem 87 
ONXGOSUB10090,2000,1000,4000,5000,6000 


,6000 ігет 113 
FD=FD-1:SP=SP-1 :WT=WT-1: IFWK> 3ØTHENCH 
=CH-1 :rem 129 
NEXTWK :rem 121 
REM CATCH WHALE ROUTINE :rem 159 
DZ=17+INT(8*RND(1)) :rem 53 
PRINT" {CLR}WHALES SIGHTED" :rem 246 
PRINT" {DOWN} TRY YOUR LUCK? Y OR N" 
:rem 173 
AS="";:GETAS:IFAS="N"THEN 1155:rem 37 
ІБА5<>"Ү"ТНЕМ1007 :rem 203 


PRINT" {CLR} {DOWN} {11 SPACES}w{ DOWN} 
{LEFT} &+3*-{DOwN} {3 LEFT)E*3 V" 

:гет 227 
PRINT"{8 SPACES}£*3{RVS}{3 SPACES} 
{OFF}£" :rem 192 


PRINT"E53JK(SHIFT-SPACE)JKJKJKJKKJ 

KJKJKJKJKJKJK(BLK] " :rem 36 
PRINT"[HOME]PRESS H(OFF) " :rem 16 
GOSUB1200 :rem 9 
ІЕРЕЕК(КВ)<>НРТНЕМ1050 :rem 100 
DC=9: PRINTLEFTS$(DS$,3)TAB(13)" {DOWN} 


(LEFT) - {DOWN} {LEFT} V[DOWN) {LEFT}"; 
:rem 56 
DC-DC-1:GOSUB1200:PRINTLEFTS$(D$,3-*DC 


)TAB(13)" {DOWN} {LEFT} = {DOWN} {LEFT}V 
{DOWN} {LEFT}"; : GOTO1Ø7Ø :rem 78 
ІЕрС<>р2-6ТНЕМ1060 :rem 79 


B$2"*";OPEN3,3:1NPUT£3,B$:CLOSE3:IFL 
EFTS(BS$,1)<>"{SHIFT-SPACE}  THEN1159 
:rem 230 
PRINTLEFTS (D$,3+DC)TAB(13)" {DOWN} 
(LEFT) = {DOWN} {LEFT} V{LEFT} {UP} 
{DOWN} TLEFT}-{DOWN}{LEFT}v {2 UP}MIS 
SED"; :GOTO1155 :rem 230 


PRINT"(7 UP}GOOD SHOT" :FD=FD+2 

:rem 222 
PRINTLEFT$(D$,23) "(4 UP)PRESS (RED) 
RETURN{BLK}" :rem 147 
Аб-"":СЕТА6:ІҒА5<>СНВ5(13)ТНЕМ1157 

:гет 142 
RETURN :rem 176 
PRINTLEFT$(D$,DZ)LEFT$(F$,39) 

:rem 196 
F$2MIDS$(F$,2)*LEFT$(F$,1) :rem 20 
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1245 
1250 
2000 
2010 
2020 
2030 
2040 


2050 
2060 


2070 
2100 
2110 


2199 
3000 
3001 


3002 


3003 


3004 


3005 


3006 
3007 


3008 


3009 
3010 


3017 


3050 
3060 


3070 
3075 


3080 
3090 
3092 
3093 
3095 
3096 
3100 
3110 
3120 
3130 
3140 
3145 


3150 
4000 


REM{4 SPACES]A$-"":GETA$:IFAS$«»"L'"TH 
EN1245 :гет 72 
RETURN :rem 168 
REMFOREIGN SHIPS srem 55 
PRINT" {CLR} {RED} "TAB(25)S$ :rem 73 
PRINT"ÍBLK]SHIP SIGHTED" :rem 97 
PRINT" {RVS}A{OFF} PPROACH OR {RVS}F 

{OFF} LEE" :rem 233 
AS="":GETAS: IFAŞ <> "A"ANDAŞ <> "F"THEN2 
040 :гет 137 
IFA$-2"A"ANDRND(1)».2THEN3000 :rem 70 


ES-.5:1FA$-"F"THENES-.8:GOTO21908 
:rem 149 
PRINT" {DOWN} IT'S A PIRATE SHIP!":PRI 
NT" {DOWN}YOU TURN AND FLEE" :rem 110 
REMFLEE ROUTINE :rem 233 
IFRND(1)>ESTHENPRINT"{2 DOWN}ALAS.": 
PRINT" {DOWN} THEY CATCH AND SINK YOU" 


: GOTO1 7000 :rem 41 
GOT0314Ø :rem 214 
FL=Ø:REM RACE srem 251 


PRINT"(CLRJITS CAPTAIN CHALLENGES YO 
U TO A RACE{DOWN}":IFRND(1)>.5THEN3Ø 
93 :rem 192 
PRINT"3 PIECES OF HIS GOLD FOR 3 
{2 SPACES}BARRELS OF{2 SPACES}YOUR S 
UPPLIES.":GOTO3005 :rem 8 
FL-1:PRINT"3 BARRELS OF HIS SUPPLIES 
AGAINST" :rem 4 
PRINT"3 PIECES OF YOUR GOLD." 

:rem 188 
PRINT" {DOWN} DO YOU ACCEPT? {RVS}Y 


{OFF} OR {RVS}N{OFF}?" :rem 248 
AS$="":GETAS: IFAS="Y"THEN3917 :геп 48 
MSS="{ RIGHT} "+CHRŞ (29) +" {DOWN} ":MSŞ= 
М5$+М5$:М5$=М5$+М5$ :rem 103 
IFA$="N"THENRETURN :rem 157 
60703096 :rem 206 


YS$=" {BLK} -{DOWN} {LEFT} {RvS}+{DowN} 
{LEFT} {OFF}={DOWN}{2 LEFT) E*3TRVS) 
{OFF} £":HSS="{RED} -{DOWN} {LEFT} 
{RVS} Z[OFF } (DOWN) { LEFT} = (DOWN) 
(2 LEFT)E*3(RVS) (oFF)£"  :rem 82 
MS$=" {RIGHT} "+CHRS ( 20) +" {DOWN} " :М55- 
М5$+М5$:М5$=М5$+М5$ :гет 104 
PRINT" {CLR} (BLK) "; :rem 247 
PRINTTAB(36)YS$:PRINT"{2 DOWN}"TAB(3 
6)HS$ :гет 52 
FORT=1TO1ØØØ: NEXT :гет 80 
Үх-Імт(вмр(1)%10)%25:НХ-ІМТ(ЕМр(1)%9 
) +25 :ТЕНХ=ҮХТНЕМҮХ=ҮХ+1 :rem 171 
MX=YX :W$=" YOUR" : IFYX<HXTHENMX=HX :W$= 


IF :rem 4 
FORJ-1TOMX :rem 179 
IFYX<JTHEN3995 :гет 148 
PRINT" {HOME} "MS$ :гет 119 
IFHX<JTHEN31ØØ :гет 121 
PRINT" {HOME} {6 DOWN) "MS$ :гет 224 
NEXTJ :rem 77 
PRINT" {BLK} {HOME} {15 DOWN} "м$" SHIP 
(SPACE)WINS" :rem 108 


IFMX-YXTHENGP-GP-(FL-0)*3:SP-SP-*3*FL 
: CH=CH+2 :rem 29 
IFMX-HXTHENGP-GP-FL*3:SP-SP-*3*(FL-0) 


: CH-CH-2 :rem 15 
PRINTLEFT$(D$,23) "PRESS {RED} RETURN 
{BLK}" :гет 75 
AS="";GETAS : IFAS <>CHR$ (13) THEN3145 
:rem 140 
RETURN ігеп 169 
REMRIVER ігеп 48 


4010 
4020 
4025 
4030 


адай 
4050 


4060 
4070 


4075 


4080 


4082 
4083 


4085 
4090 
4100 


4110 
4300 


4302 


4305 


4310 


4320 


4330 
4340 
4350 


4500 


4505 
4510 
4800 
4810 


4820 


4840 
5000 
5010 
5015 
5020 
5025 


5030 


5040 
5050 


IFRND(1)>.7THEN RETURN :rem 108 
PRINT"(CLRJYOU SPY А RIVER.":PRINT" 
{DOWN}WILL YOU GO ASHORE FOR FOOD AN 
D WATER?" :гет 103 
PRINT" {DOWN} {RVS}Y{OFF} OR {RVS}N 


{ОЕЕ}" :гет 61 
AS="":GETAS : IFAS <>"Y" ANDAS <>"N" THEN4 
030 ігеп 171 
IFAS="N"THEN CH=CH-2:RETURN :rem 134 


PRINT" {2 DOWN}YOU LAND AND REPLENISH 


33) :rem 131 
IFRND(1)».5THEN48900 :rem 91 
PRINTLEFT$(D$,23) "PRESS {RED} RETURN 
{BLK}" :rem 78 
A$="" :GETA$:IFA$<>CHR$ (13) THEN4975 
:rem 146 


PRINT"(CLR]NATIVES APPEAR(3 SPACES}O 
(3 SPACES}O{DOWN}{6 LEFT}J{RVS}{RED} 
{BLK} {OFF}K &ZI{RVS}{GRN} {OFF} 
{BLK} &XI{DOWN} {6 LEFT}V{3 SPACES]V 


Г :rem 108 
PRINT" { DOWN} {RVS}A{OFF}PPROACH OR 

{RVS} F{OFF} LEE?" :rem 66 
AS="":GETAS : IFAS<>"A"ANDAS<>"F" THEN4 
083 :rem 155 
IFAS="F" THEN4880 :rem 135 
IFRND(1)>.5THEN4399 :rem 89 


PRINT"{3 DOWN}THE NATIVES TRADE GOLD 
FOR YOUR TRINKETS" :rem 4 
GP=GP+19:CH=CH+1 : GOT048ØØ :rem 229 
PRINT" {CLR} {2 SPACES}O{3 SPACES}O 
{DOWN} {6 LEFT}J{RVS}{YEL} {BLK} {OFF} 
KTEZI{RVS}{RED} {OFF} {BLK}£x] 
Трои) {6 LEFT)V - у"; :rem 138 
PRINT"(2 UP} {5 SPACES}O{3 SPACES]O 
{DOWN} {6 LEFT}J{RVS}{GRN} {BLK} {OFF} 
KTEZ3(RVS)E13 {BLK} {OFF}EX] 
TDowN} {6 LEFT)V = v" :rem 197 
PRINT"{3 DOWN}MORE NATIVES APPEARI": 
PRINT" { DOWN} RUN FOR THE SHIP!" 
:гет 37 

PRINT" {DOWN} TYPE {BLU}RUN{BLK} AND P 


RESS RETURN" :геп 208 
ТІ5-"000000" :геп 43 
INPUTA$:IFA$<>"RUN"THEN433Ø :геп 153 
ІЕТІ<200ТНЕМ4500 :rem 189 


PRINT" {DOWN}TOO SLOW. YOU'RE DEAD.": 
GOTO1 7000 :rem 117 
PRINT" {DOWN}WHEW! YOU SAVED YOUR SKI 


N BUT LOST YOUR" :геш 119 
PRINT" FOOD AND МАТЕК":СН=СН-1 :rem 8 
GOTO4819 :гет 208 
FD=19:WT=19:CH=CH+1 :rem 96 
PRINTLEFT$(D$,23) "PRESS {RED} RETURN 
{BLK}" :rem 80 
А$= СЕТА$:1ЕА$<>СНЕ$(13)ТНЕМ482@ 
:гет 142 
RETURN :гет 176 
REMSTORRM :rem 144 
IFRND(1)».5THENRETURN :rem 107 
POKE53281,12 :rem 140 
PRINT" {CLR} TERRIBLE STORM" :гет 25 


IFRND(1)>.9THEN PRINT" { DOWN} SHIPWREC 
K AND PERISH": GOTO1 7000 :rem 48 
PRINT" {DOWN}YOU RIDE IT OUT, BUT LOS 
E SUPPLIES": PRINT" { DOWN} OVERBOARD." 


:гет 13 
SP=SP-4 :гет 173 
PRINTLEFT$(D$,23) "PRESS {RED} RETURN 
(BLK]" :rem 77 


50690 
5070 
6000 
6010 
6020 
6030 
6040 


6045 
6056 


6060 
6070 
6072 
6074 
6076 
6080 
6090 
6100 
6110 


6120 
10000 


10002 
10003 
10005 
10006 
10007 
10008 
10009 
10010 
10011 


10012 


10020 
10030 
10040 
10042 
10045 
10050 
10060 


10070 
10073 


10074 


А5-"":СЕТА5:ІЕА9<>СНВ%(13)ТНЕМ5060 
:rem 136 
POKE53281,3:RETURN :rem 119 
REM ARAB DHOWS :rem 69 
PRINT"(CLR)HOSTILE WATERS" :rem 25 


PRINT"(DOWN]ARAB TRADERS WILL TRY TO 


KEEP YOU OUT" :rem 201 
PRINTLEFT$(D$,23) "PRESS {RED} RETURN 
(BLK]" :rem 76 
A$z""iGETAS$:IFA$«»CHR$(13)THEN6940 

:rem 134 
IFRND(1)>.5THENRETURN :геш 116 


PRINT" {CLR} { DOWN] " ; TAB(8) DH$ : PRINT" 
{HOME} {DOWN} "TAB ( 20) DHS :rem 244 


PRINT" {HOME} {9 DOWN} ARAB DHOWS APPEA 
қ" :rem 157 
PRINT" {DOWN} TYPE {BLU}FLEE{BLK} AND 

{SPACE}PRESS RETURN" :rem 252 
ТІ5-"000000" :гет 49 
INPUTAS:1FA$«»"FLEE"THEN6274:rem 206 
ІЕТІ<200ТНЕМ6090 :rem 203 
PRINT" {DOWN} THEY SINK YOU.":GOTO17ØØ 


0 ігеп 181 
PRINT" (DOWN) YOUR PILOT ESCAPES THEM. 
15 :rem 232 
PRINTLEFT$(D$,23) "PRESS {RED} RETURN 
{BLK} " :rem 74 
AS="":GETAS : IFAS <> CHRŞ (13) THEN6119 
:rem 130 
RETURN :rem 169 
REM LOG BOOK :rem 226 


GOSUB16999 : Q=INT(ML/ 209) :rem 200 
IFQ> 1THENPRINTLEFTS(D$,5);" 
{9 RIGHT}";LEFTS(DTS,3*Q) :rem 93 


PRINT" {HOME} {BLK} {2 SPACES}SHIP'S В 


ECORD" :гет 215 
WKS=RIGHTS("{2 SPACES} "+STR$ (WK), 4) 
:rem 204 
MLS=RIGHTS("{2 SPACES} "+STR$ (ML) ,4) 
:rem 187 
FDS=RIGHTS("{2 SPACES}"+STRS$(FD),4) 
:rem 158 
SPS=RIGHTS("{2 SPACES}"+STR$(SP),4) 
:гет 209 
GPS=RIGHT$("(2 SPACES)"+STR$(GP),4) 
:гет 177 
CH$=RIGHT$("{2 SPACES}"+STRS$(CH),4) 
:rem 154 
WT$=RIGHT$("{2 SPACES}"+STR$(WT),4) 
ігеп 219 


PRINTLEFTS (D$,14)TAB(2Ø)"WEEKS OUT 
(4 SPACES] ";WK$ :rem 95 
PRINTTAB(29)"MILES SAILED ";ML$ 


:rem 115 
PRINTTAB(20)"FOODÍ9 SPACES}";FDS 
:rem 97 
PRINTTAB(28)"WATER{8 SPACES]";WT$ 
:rem 223 
PRINTTAB(28)"SUPPLIES(5 SPACES}";SP 
5 :гет 204 
PRINTTAB(2Ø)"GOLD(9 SPACES]";GP$ 
:rem 109 
PRINTTAB( 20) "CREW SPIRIT{2 SPACES}" 
; CH$ :гет 72 
PRINT"(DOWN]"TAB(14)M$(G)  :rem 112 


IFG-lORG-2THENPRINTTAB(14)"TOOK ON 

{SPACE}FOOD & WATER"; srem 9 

IFG=4THENPRINTTAB(14)"AT MALINDI" 
:rem 99 
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10075 


10077 


10080 
10090 


10095 


11000 
11010 


11020 


11030 


11035 
111090 
14000 
14002 
14005 
14010 
14030 


14034 


14036 


14038 


14039 


14040 
14042 


14045 
14140 
14155 
14157 


14200 
15000 


15010 
15015 
15017 
15018 
15019 
15020 
15021 
15022 
15023 


15025 


IFG-5THENPRINTTAB(19)"(DOWN) {RVS} YO 


U MADE ITI";:PRINT" {RVS}CONGRATULA 
TIONS! {HOME}"; :гет 7 
IFG=5THEN PRINT"HISTORY WAS WRONG." 
: END :rem 48 
PRINTLEFT$(D$,24)"PRESS С" :rem 52 
AS="";GETAS : [FAS <>"C" THEN1 9998 

:rem 183 
RETURN srem 223 
REM EVAL SITUATION :гет 190 


IFFD<1THENPRINT"{CLR}OUT OF FOOD":P 
RINT" {DOWN} YOU DIE OF STARVATION.": 
GOTO1 7000 :rem 229 
IFSP<1THENPRINT"{CLR}OUT OF SUPPLIE 
S":PRINT"ÍDOWN]YOU DIE": GOTO1 7000 
:rem 126 
ІЕСН<2ТНЕМРКІМТ" {CLR} CREW MUTINIES. 


" : PRINT" {DOWN} THEY FORCE YOU TO TUR 
N BACK." :rem 202 
ІЕСН<2ТНЕМ17000 :гет 169 
RETURN :гет 211 
POKE53281,7: REM WEATHER :rem 184 
WH=FNR(7) :G=0:GG=5 :CM=M$ (WH)*FG 

:гет 137 
PRINT"{CLR}{6 DOWN}WEATHER":rem 212 
IFWH-7THEN14149 :rem 193 
PRINTWHS$(WH):IFWH«3THENCH-CH-1 

:rem 239 


IFML<8898ANDML+CM> 899THENG=1 :WT=19:F 
D=FD+3 : SP=SP+6: IFFD< 1 O@THENFD=19 

:rem 170 
IFML<15ØØANDML+CM>15ØØTHENG=2 :WT=1ø 
: FD=FD+3 : SP=SP+6: IFFD<19THENFD=19 

srem 9 

IFML< 59@Q9ANDML+CM> 5000 THENG-3 

srem 57 
IFML<66ØØANDML+CM>66ØØTHENG=4 

srem 73 
IFML>66ØØTHENGG=6 :rem 91 
ML=ML+CM :Q=INT(ML/2+.5):IFML>9ØØØTH 
ENG=5 zrem 2 
GOTO14155 геш 55 
PRINT" { DOWN} STEADY RAIN": PRINT" 
{DOWN}YOU REFILL WATER TANKS":WT-10 


:rem 46 
PRINTLEFT$(D$,23) "PRESS {RED}RETUR 
N{BLK}" ігеп 131 
AS="":GETAS : IFAS <>CHR$ (13) THEN14157 

:rem 246 
RETURN :гет 215 
POKE53281,13:{3 SPACES}REM SETUP 

:геп 103 
PRINT" {CLR} HENRY THE NAVIGATOR, PRI 
NCE OF PORTUGAL," :rem 137 


PRINT"BELIEVES THERE MUST BE A SEA- 
ROUTE TO " :rem 221 
PRINT" (DOWN) INDIA. HE HAS OFFERED A 
PRIZE FOR" :rem 137 
PRINT" (DOWN) FINDING IT. VASCO DA GA 
MA IS GOING TO" :гет 117 
PRINT" {DOWN} TRY. HIS SHIPS WILL ВЕ 


{SPACE} READY SOON. BUT" :rem 6 
PRINT" {DOWN} YOU HAVE A SHIP THAT CA 
N LEAVE TODAY." :rem 143 
PRINT"{2 DOWN}YOU DECIDE TO TRY YOU 
R LUCK SS :rem 213 
PRINTLEFT$(D$,23) "PRESS {RED} RETUR 
N{BLK}" :rem 125 
AS="":GETAS : [FAS <>CHR$ (13) THEN15923 

:гет 232 
WT-19:GP-20 :rem 182 
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15030 
15031 
15032 
15033 
15034 
15@35 
15936 
15037 
15038 
15039 
15050 
15060 
15130 
15140 
15150 
15155 


15160 
15180 


15185 


15200 
16000 


PRINT" {CLR}OTHERS HAVE TRIED. SOME 


{SPACE}DIED IN STORMS," :rem 241 
PRINT" { DOWN} SOME OF THIRST OR STARV 
ATION. SOME WERE" :rem 196 
PRINT" {DOWN} MURDERED BY PIRATES, ОТ 
HERS BY NATIVES." :гет 294 
PRINT" { DOWN} UNHAPPY CREWS MUTINIED. 
ARAB TRADERS" :гет 63 


PRINT" {DOWN}HAVE KILLED TO PROTECT 
{SPACE}THEIR ROUTES." :rem 8 
PRINT" {DOWN} ALL THESE COULD HAPPEN 
{SPACE}TO YOU." :rem 51 
PRINT"{2 DOWN}{RVS}WORDS OF ADVICE 
{OFF}: NOT ALL STRANGE SHIPS":rem 5 
PRINT" {DOWN}HOLD PIRATES. NATIVES С 
AN BE FRIENDLY." :rem 77 
PRINT" { DOWN} FRESH FOOD, GOOD WEATHE 
R, AN INCREASE" :rem 237 
PRINT" {DOWN} IN GOLD WILL KEEP YOUR 


{SPACE} CREW HAPPY." :rem 46 
PRINTLEFT$(D$,23) "PRESS {RED}RETUR 
N(BLK] " :rem 126 
A$-2"":GETAS$:IFAS$«»CHR$(13)THEN150690 

:rem 234 
PRINT" {CLR} {DOWN} "TAB(30) {2 SPACES] 
sss :гет 196 


PRINT"{3 DOWN} PRESS {RVS}L{OFF} TO 
{SPACE}SET SAIL FROM LISBON":rem 47 


AS="":GETAS: IFAS <>"L" THEN15159 
:гет 196 
FORI=1T039: PRINT" {HOME}"MS$:PRINT" 


(UP)"MS$Í12 SPACES} :NEXT :rem 96 
5р=50:СН=10:Ер=10 ігеп 7 
PRINTLEFT$(D$,23) "PRESS (RED]RETUR 
N{BLK}" :rem 130 
AS="":GETAS: IFAS<>CHRS$(13)THEN15185 

:гет 250 
RETURN :гет 216 
POKE53281, 3: PRINT" {CLR} " : IFML=ØTHEN 


PRINT" {CLR} {BLK} SEA ROUTE TO INDI 
А" :POKE53280, 3 :rem 82 


16004 PRINT" {BLK} RRRRRRRRRRRRRRRRRRRRRRRR 
RRRRRRRRRRRRÜYEL]" :rem 130 
16005 REM PRINT"IYEL]" :rem 79 


16010 


16012 


16014 


16016 


16018 


16020 


16022 


16024 


16026 


PRINTTAB(8)"{RVS}{18 SPACES) {OFF} 
{7 SPACES}{RVS}{7 SPACES)" :геп 223 
PRINTTAB(8)"{RVS}{2 SPACES} {ОРЕ} 
{3 SPACES}k2 JJ (RVS)Í19 SPACES}™ 
:rem 244 
PRINTTAB(8)"E2 07{3 SPACES)KC3 
(2 SPACES) {RVS} (23 SPACES]":rem 107 
PRINTTAB(4)"KB9{3 SPACES] (RVS] £ 
(3 SPACES) (OFF) (4 sPACES)ÍRVS) 
(19 SPACES)" :rem 73 
PRINTTAB(7)"{RVS}£{8 SPACES) (oFF] 
EK*3(RVS](12 SPACES} оғЕ)ғ" 
~ zrem 169 
PRINTTAB(6)"{RVS}£{9 SPACES} (OFF) 
(SPACE)E*3(RVS]) (2 SPACES}*] 
{ОЕЕ}{2 sPACES]K*3(RVS])(4 SPACES} 
{OFF}£" :гет 3 
PRINTTAB(3)"EB3(Í2 SPACES}{RVS} 
{10 SPACES}K*J{OFF} E*3(RVS] 
(2 SPACES}E*3{OFF} {2 SPACES}{RVS} 
{3 SPACES} {OFF}£" :гет 24 
PRINTTAB(6)"(RVS](11 5РАСЕ5)Е%3 
{OFF} K*J {RVS} {orF}£{2 SPACES} 
{RVS} {2 SPACES} (oFF) £" :rem 40 
PRINTTAB(6)"{RVS}{12 SPACES} E*3 
{OFF} £(3 SPACES}E*3{RVS} " 
:rem 75 


16028 
16030 
16032 
16034 
16036 
16038 
16039 
16040 
16042 
16044 
16046 
16048 
16050 
16060 


16070 
17000 PRINTLEFTS$(D$, 23) 


17010 A$Z2"":GETAS:IFAS«»CHRS(13)THEN17019 
:rem 228 
17020 PRINT"{CLR}{2 DOWN)ON MAY 20, 


17025 PRINT" {DOWN}WEST COAST OF INDIA, AF 
TER{2 SPACES}" :rem 54 
17030 PRINT" {DOWN}A VOYAGE OF 11 MONTHS A 
ND 9500 MILES.{4 DOWN)" :rem 70 

17040 PRINT" {DOWN} PLAY AGAIN? Y OR N" 
srem 251 
17050 AS="":GETAS:IFAS="Y"THENRUN:rem 142 
17060 IFA$«»"N"THEN17050 :rem 42 
17070 PRINT" {CLR} BETTER LUCK ANOTHER TIME 
av :rem 198 
17889 END :гет 215 


PRINTTAB(6)"K*J{RVS}{12 SPACES} 
{oFF}£{5 SPACES} 3" 
PRINTTAB(19)"K*3(RVS])(7 SPACES} 
{OFF} =" 

PRINTTAB(11)"{RVS}{6 SPACES} (OFF) £ 


PRINTTAB(11)"{RVS}{6 SPACES}{OFF}" 
srem 253 
SPACES} {OFF}" 
srem 255 
SPACES} (oFr] " 
:rem 1 

SPACES) (OFF) £ 
:rem 171 

SPACES} {OFF} 
ігеп 192 
SPACES} {OFF} £ 
:гет 183 
PRINTTAB(11)"{RVS}{3 SPACES} {ОРЕ} 
{2 SPACES}{RVS} " :rem 185 
PRINTTAB(11)"E*3(Rvs) (orr)£" 

"rem 
IFML>@THENPRINT"{BLK}"; : RETURN 
:rem 
PRINTTAB( 20) " {DOWN} {BLK} PRESS В 
{OFF} TO BEGIN"; :rem 
Аб-"":СЕТА%5:ІҒА5<>"В"ТНЕМ16060 
геп 
¿rem 


PRINTTAB(11)"{RVS}{6 


PRINTTAB(11)"{RVS}{6 


PRINTTAB(11)"{RVS}{5 

PRINTTAB(11)"{RVS 
{RVS} HJ" 

PRINTTAB(11)"{RVS 
{Rvs} " 


{5 


{4 


136 
126 
156 


188 
RETURN 222 


N{BLK}" :rem 123 


1498" 
: PRINT" {DOWN}VASCO DA GAMA REACHED 
{SPACE}CALCUTTA ON THE" :rem 86 


The Inner World Of 
Computers 


(Article on page 110.) 


ігеп 59 
:rem 128 


:гет 164 


"PRESS {RED} RETUR 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Type COMPUTE!’s Gazette Programs,” “А 
Beginner’s Guide To Typing In Programs,” and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


lø 


2@ 
30 


40 


50 


PRINT" {CLR} {BLK} TO CREATE {RVS}BINAMI 
ТЕ srem 7 
PRINT" PERSON/ITEM PROFILE" :rem 121 


PRINT" PUT {RVS}.{OFF} IN ALPHA CELL" 
:rem 28 
PRINT"{5 SPACES}{RVS}ABCDEFGHIJKLMNO": 
DIMD(16),NA$(16),B$(16) :rem 112 
PRINT"{5 SPACES}{RVS}PPPPPPPPPPPPPPP" 


60 


70 
86 


98 


100 
110 


120 


130 


410 


Т>14ТНЕМТТ-14 


srem 120 
PRINT"HOW MANY NAME/ITEMS":INPUTTT:IFT 
:rem 43 
FORI-ÜTOTT-1:READNAS$(I):NEXT :геп 201 
PRINT"{CLR} IF ATTRIBUTE APPLIES" 

srem 29 

PRINT" PUT {RVS}.{OFF} IN ALPHA CELL" 
:rem 34 
PRINT" IN ROW OPPOSITE NAME #":rem 168 
PRINT" {RVS}NAME{OFF} ABCDEFGHIJKLMNO" 
:геп 96 
INPUT" #{3 SPACES} {RVS}00000000000000 
O{17 LEFT}";B$:L=LEN(B$) :rem 36 
XP-L-1:FORI-1TOL:DM$-2MID$(B$,I,1):IFD 
M$»"I"THENPRINT"(2 UP}{2 SPACES]":DMS$ 


ш"":60Т0120 :rem 102 
IFDMS="."THENDM$="1" :гет 30 
D-D-*(VAL(DM$))*2TXP:XP-XP-1:NEXT 

:rem 192 
GOSUB3ØØ :T=T+1 :rem 37 
PRINT" {UP} "ТАВ(2)Т:В$="":р=0:0$="":І 
P T<TT THEN 120 :rem 154 


PRINT" {5 SPACES }ABCDEFGHIJKLMNO": PRIN 
T"TO FIND ATTRIBUTES":PRINT"TYPE NAME 
#'S" :rem 131 
PRINT"( 1..."TT") ANY ORDER" :rem 199 
PRINT: INPUT"#";AL:AL=AL-1:PRINT"{UP}" 
:IFAL«ÜORAL» TTTHEN2 4 :rem 62 
FORJ-9TO14 :rem 57 
IF(D(AL)AND2TJ)-21J THENPRINTCHR$(79- 
J): :rem 138 
NEXT :GOTO2ØØ :гет 217 


FORI=ØTOTT-1:PRINTLEFTS(NA$(1),5)" 
{RVS}"B$ (1) :PRINT"{RVS}"D(I) :NEXT 
:rem 187 
PRINT"{5 SPACES]ABCDEFGHIJKLMNO" 
:rem 160 
END:REM*SAVE DATA* :гет 42 
B$(T)=B$:D(T)=D: :rem 31 
IFLEN(B$(T))<15THENB$(T)=LEFT$ (" 
(16 SPACES}",15-LEN(B$(T)))+B$(T) 
:rem 139 
RETURN srem 117 


DATAMARYMARY , BOPEEP, BOYBLUE,MSMUFFIT, 
5NAME, 6NAME, 7NAME, BNAME , 9NAME, LÜNAME 
:rem 30 
DATA11NAME,12NAME,13NAME, 14NAME,15NAM 
E,16NAME :rem 172 


etting Started 


With A Disk Drive 


(Ar 


ticle on page 106.) 


1 FORI-828TO883:READA:POKEI,A:NEXTI 


16 


:rem 254 
REM"D=DSAVE"@BACK2",D@: ?DS$ : CATALOGDZ 
:rem 159 
BB=PEEK(44)+27: POKE995,BB :rem 85 


POKE998, PEEK (55) : POKE999, PEEK ( 56 ) : POKE 
55,0:РОКЕ56,ВВ:СІК ігеп 55 
ВВ-РЕЕК(995) :rem 66 
N=PEEK (999) -BB-1 : BA=BB* 256 :MA=828 


:rem 12 
DIMBM$ (35,24) :rem 63 
FORJ-0TO7:TA(J)-21J:NEXT :rem 217 


PRINT"ÍCLR)(3 RIGHT}{RVS}BACKUP 1541 


{OFF}" :rem 72 
PRINT" {DOWN} 'GOTOLØØØØ' IF PROGRAM QUI 
TS ABNORMALLY" srem 241 
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100 


110 
200 
210 
220 
230 


240 


250 
260 
270 
280 
290 


300 


310 
320 
330 
340 


350 
360 
370 
380 


390 


498 
410 
420 
430 
440 
456 


460 
500 
510 
520 


530 


540 
550 
560 
576 


580 
590 
600 
610 


620 
6368 


640 
65@ 
66@ 
67@ 
1000 
1010 


1020 


1030 


PRINT" {DOWN}"N"BUFFERS AVAILABLE" 


:rem 147 
OPEN1,8,15 :геп 235 
REM *** MAIN FUNCTIONS **** ¿rem 122 
GOSUB19000 :rem 212 
D$2"S":GOSUB3209:12$-IR$ :rem 36 


IFDR$<>"2A"THENPRINT"{RVS}ILLEGAL DOS 
1.0 DISK{OFF}":GOTO19999 :rem 177 
IFI2$=11$THENPRINT"{RVS}SOURCE AND DE 
STINATION HAVE SAME ID CODE{OFF}":GOT 


010000 :rem 127 
GOSUB25ØØ :rem 222 
T=TS:S=Ø:NU=1:T1=T:S1=S :rem 179 
PRINTf1,"IØ":OPEN3,8,3,"4" srem 88 
PRINT"READING BLOCK #"; srem 46 


ІЕВМ% (T1,S1)=@THENGOSUB2999 :NU=NU+1:1 
FNU>NTHEN3 26 srem 23 
S1=S1+1:IFS1>2@THENS1=9:T1=T1+1 


:rem 30 
IFT1<TF+1THEN299 :rem 164 
PRINT" {DOWN}" trem 119 
CLOSE3 :rem 63 
D$="D":GOSUB3200: IFIRS<>I1STHENGOTO34 
@ :rem 226 
PRINT£1,"IQ":OPEN3,8,3,"&" :rem 87 
PRINT"WRITING BUFFER #"; :rem 166 
NU=1:T1=T:S1=S :rem 73 


IFBM$ (T1,S1)=@THENGOSUB22@@ : NU=NU+1 :I 


FNU>NTHEN41@ :rem 25 
51=51+1:1ІЕ51> 20ТНЕМЅ51=0:Т1=Т1+1 

srem 39 
IFT1<TF+1THEN389 srem 164 
PRINT" {DOWN}" srem 119 
CLOSE3 :rem 63 
S-Sl-1:1FS»20THENS-0:Tl1-Tl1-1 :rem 143 
Т-Т1:ІЕТ>ТЕТНЕМ500 :rem 103 


Б5-"5";Сс05/В3200:ІҒІБ5<>125ТНЕМ450 


:rem 189 
NU=1:T1=T:S1=S:GOTO270 :rem 85 
REM FINISHED XFERS :rem 75 
CLOSE1 :rem 61 
POKE55, PEEK (998) : POKE56, PEEK( 999) :CLR 

:rem 184 
PRINT"{2 DOWN}BACKUP COMPLETE" 

:rem 154 
ОРЕМ1,8,0,"50" :гет 128 
GET#1,A$:IFAS<>"{RVS}"THEN55@ :rem 38 
PRINTAS; :GOTO61G :rem 210 


GET#1,A$:SS=ST:A=LEN (A$) : IFATHENA=ASC 


(AS) :rem 182 
GET#1,B$:SS=ST:B=LEN (BS) : IFBTHENA=ASC 
(BS) :гет 188 
IFSSTHEN669 :гет 158 
IFA-lANDB-1THENGOSUB6360 :rem 159 
GET#1,A$:IFA$=""THENPRINT:GOTO579 
:rem 214 
PRINTAS; :GOTO619 :rem 207 


GET#1,A$:SS=ST:A=LEN (A$) : IFATHENA=ASC 


(AS) :rem 179 
GET#1,B$:SS=ST: B=LEN (B$ ) : IFBTHENB=ASC 
(BS) :rem 186 
N=B*256+A: PRINTN; : RETURN :rem 5 
CLOSE1 :rem 67 
END :rem 116 
REM HEADER DEST DISK :rem 169 


PRINT" {DOWN} INSERT DESTINATION DISK 
{SPACE}TO BE FORMATTED" :rem 182 
INPUT"{2 DOWN}DISK NAME{3 RIGHT} 
{SHIFT-SPACE}{16 SPACES}{19 LEFT}";D 
N$ :rem 148 
IFDN$=" (SHIFT-SPACE }"THENPRINT" 
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1040 
1059 


1066 
1070 


1080 


1090 
1106 


1116 
1120 
1130 
1140 
2000 


2010 
2020 
2030 
2040 
2050 


2060 
2070 


2080 
2085 


2090 


2100 
2200 


2210 
2220 


2230 


2240 
2245 
2250 


2260 
2270 
2288 
2298 


2300 
2500 
2510 
2520 
2530 
2540 


2550 
2560 


25768 
2580 


(3 UP)"; :GOTO1220 :rem 78 
IFLEN(DN$)»16THENCLR:GOTO4Q :rem 198 
F=%:FORJ=1TOLEN(DN$):S1$=MID$(DNS,J, 


1) srem 210 
IFS1$="{SHIFT-SPACE }"ORS1$=CHR$(34)T 
HENF=1 trem 65 
NEXTJ:IFFTHENPRINT"(3 ОР)"; :с0Т01020 

:rem 132 


INPUT" (DOWNJUNIQUE DISK ID{3 RIGHT) 
{5НТЕТ-5РАСЕ}{2@ SPACES)(23 LEFT)";I 
1s :гет 40 
IFI1$="{SHIFT-SPACE}"THENPRINT" 

{2 UP}";:GOTO1989 :гет 177 
IFLEN(I1$)«»2THENPRINT"(2 UP}";:GOTO 


1080 :гет 100 
PRINT#1,"N@:"+DNS$+","+I1$ :гет 17 
GOSUB3ØØØ :геп 7 
IFERTHENPRINTERS : GOTOLØØØØ :гет 198 
RETURN :rem 166 
REM READ BLOCK Т1,51 TO BUFFER # NU 
:rem 133 
С=. :rem 113 
PRINT41,"U1";3;2;T1;S1 :rem 243 
GOSUB 3ØØØ : IFNOTERTHEN26060 :rem 80 
C=C+1:IFC<3GOTO2Ø2Ø :rem 93 


PRINTERS : FORJ=(BB+NU ) *256TO(BB+NU) *2 
564255:POKEJ,.:NEXTJ:GOTO21060 

:rem 251 
PRINT£41,"B-P";3;0 :rem 177 
IFNU<>9THENPRINT"{3 SPACES}{3 LEFT)" 
;RIGHTS$("{2 SPACES}"+STRS$(NU),3);" 
{3 LEFT}"; :гет 26 
POKE996, PEEK(3) : POKE997, PEEK(4) : POKE 
4,BB+NU:SYSMA :гет 64 
POKE3 , PEEK( 996) : POKE4, PEEK ( 997) 


:гет 99 
IFST«».ANDST«»64THENGOSUB3800 : GOTO20 
50 :rem 179 
RETURN :rem 163 


REM WRITE BLOCK T1,S1 FROM BUFFER # 


{SPACE }NU ігеп 135 
=. гет 115 
PRINT£1,"B-A";0;T1;S1:PRINT£41,"B-P"; 
3:39 :rem 212 


PRINT"{3 SPACES}{3 LEFT}";RIGHTS$(" 
{2 SPACES) " -STR$ (NU),3);"(3 LEFT)"; 

:rem 13 
POKE996, PEEK(3) : POKE997, PEEK(4) : POKE 
4,BB+NU: SYSMA+3 :rem 156 
POKE3 , PEEK (996) : POKE4, PEEK(997) 

:rem 97 
IFST«».ANDST«»64THENPRINT"(RVS)IEEE 
{SPACE}WRITE ERROR"ST"(OFF]":GOTO108 


ga :rem 37 
PRINT£$1,"U2";3;0;T1;S1 :rem 250 
GOSUB3209 : IFNOTERTHEN2300 :rem 83 
C=C+1:IFC<3THEN226Ø :rem 95 


PRINT" {RVS}UNRECOVERABLE WRITE ERROR 


"ERS : GOTO 1LØØØØ :rem 177 
RETURN :rem 165 
REM GET BAM TO ВМ%(Т,5) :rem 214 
TS=1:TF=. :rem 28 
PRINT#1, "I9":OPEN3,8,3,"#" :геп 136 
59=@ :rem 195 


PRINT" {DOWN}TRACK #{3 SPACES}BLOCKS 

{SPACE}TO XFER" :rem 219 
PRINT"K24 ТЯ" :гет 229 
NU-0:T1-218:91-20:CO$-CHR$(.):GOSUB200 
g :rem 119 
BY=4 :гет 218 
T$=(BY-4) /4+1 :гет 145 


2590 PRINT"Í2 5РАСЕ5)";Т%; :rem 144 
2600 ІЕРЕЕК(ВА%ВҮ)-.ТНЕМЕОВУ-.Т020:ВМ%(Т% 
,J)=.:NEXT: BY=BY+4:GOTO265@ :rem 175 
2610 5-0 :rem 137 
2620 ВҮ=ВҮ+1 :A9=PEEK(BA+BY) : FORJ=.TO7:BM$ 
(Т%,5)-АЙАМрТА(7):5-5-1:МЕХТ:геп 202 


2630 IFS«22THEN2620 :rem 70 
2640 ВҮ=ВҮ+1 :rem 155 
2650 Е5-21:ІЕТ%>17ТНЕМЕ5-19 “ететш 91 
2660 ІЕТ%>24ТНЕМЕ5-18 :rem 231 
2670 IFT$»30THENES-17 :rem 228 


2680 FORJ-ESTO24:BM$(T$,7)--1:NEXT:rem 33 
2690 SM-.:FORJ-.TO20:IFBM$(T$,J)-.THENSM- 


5М+1 trem 231 
27ØØ NEXT:PRINTTAB(12);SM:S9=S9+SM 
:rem 143 
2710 IFSM=.ANDTS=TSTHENTS=TS+1:GOTO2730 
srem 233 
2720 IFSM<>.THENTF=T% :rem 33 
2730 IFBY<143THEN258Ø :гет 2ØØ 
274Ø CLOSE3 :гет 118 
275Ø PRINT"START =";TS;" FINISH =";TF 
:rem 158 
2760 PRINT" {DOWN}A TOTAL OF";S9;"BLOCKS T 
О XFER" srem 231 
2770 58-90--25-( .650-.980)%59 :rem 136 
2788 S7-INT(S8/60):PRINT"APPROX";S7":"INT 
(S8-S7*69);"FOR COPY" :rem 203 
2790 RETURN :rem 178 
3000 REM READ ERR CH TO ER,ER$ :rem 88 
3010 INPUT$1,EØ$,E1$,E2$,E3$:ER$=EØ$+", "+ 
E1$+","+E2$+","+E3$ :rem 176 
3020 ER=LEN (EØS ) : IFERTHENER=VAL (EØ$) 
:гет 146 
3030 RETURN :rem 166 
3200 REM INSTRUCT TO SWAP TO DISK GIVEN I 
N D$ :rem 73 
3210 IFDS="D"THENS1$="DESTINATION":GOTO32 
30 :rem 87 
3220 S1$="SOURCE" :rem 193 
3230 PRINT"{DOWN}INSERT ";S1$;" DISK, PRE 
SS {RVS}SPACE{OFF}" :rem 213 
3240 GETAS:IFAS<>" "THEN3240 srem 242 
3250 OPEN2,8,Ø,"sø" :rem 178 
3260 GOSUB30909:IFER»OTHEN10900 :rem 252 
3270 FORJ=1T026:GET#2,A$:NEXTJ :rem 57 


3280 GET#2,A$:GET#2,B$:IRS=AS+B$ :rem 192 
3290 GET#2,A$:GET#2,A$:GET#2,B$:DRS=A$+B$ 


:rem 188 

3300 CLOSE2: RETURN :rem 136 
10000 REM DROP OUT :rem 2 
10010 POKE55, PEEK(998) : POKE56, PEEK( 999) :C 
LR: STOP :rem 147 


15000 DATA 76,66,3,76,91,3,162,3,32,198,2 
55,160,0,132,3,32,207,255,145 
:rem 113 
15010 DATA 3,165,144,208,3,200,208,244,32 
,204,255,96,162,3,32,201,255,160 
:rem 245 
15020 DATA 0,132,3,177,3,32,210,255,165,1 
44,208,3,200,208,244,32,204,255,96 
srem 87 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Type COMPUTE!’s Gazette Programs," “А 
Penne Guide To Typing In Programs," and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


Dynamic SAVE For 
VIC And 64 


(Article on page 120.) 


Program 1: Dynamic SAVE For Tape 


60000 REM TAPE SAVER :rem 133 
60010 QS$-CHR$(34):N$-"DYNAMIC SAVE" 


:rem 195 


60019 REM USE EITHER 60020 OR 60021 


:rem 36 


60020 POKE36879,27:C1$2"(WHT]":C2$-"(BLU) 


":ВЕМ FOR УІС-20 :rem 14 


60021 REM РОКЕ53280,14:РОКЕ53281,6:С1$=" 


{BLU}":C2$="K79":REM FOR COMMODOR 


E 64 :rem 225 
60030 PRINTC1$" {CLR} FORQ=1TO2:SAVE"QSNSQS$ 
"sNEXT"C2S :гет 139 
60040 POKE631,19:POKE632,13 :rem 237 


60050 POKE633,86:POKE634,101:POKE635,58:P 


OKE636,86:POKE637,101:POKE198,7:END 
:rem 172 


Program 2: Dynamic SAVE For Disk 


60000 REM DISK SAVER :rem 134 
60010 Q$-CHR$(34):N$2"DYNAMIC SAVE" 


:rem 195 


60019 REM USE EITHER 60020 OR 60921 


:rem 36 


60020 POKE36879,27:C1$-"(WHT]":C2$-"(BLU) 


" REM FOR УІС-20 :rem 14 


60021 REM РОКЕ53280,14: РОКЕ53281,6:С1$=" 


(BLU])":C2$-"K73":REM FOR COMMODOR 
E 64 :rem 225 


60030 PRINTCI$"(CLR)SAVE"O$"Q9:"N$0O$",8:V 


ERIFY"QSNSQ$",8"C2$ :rem 194 


60040 POKE631,19:POKE632,13:POKE198,2:END 


CUT-OFF! 


(Article on page 46.) 


Program 1: 
Tiny MLX—Special VIC Version 


100 


210 
300 
316 


320 


480 
490 
500 


510 


515 
520 


530 
540 
550 
560 


:гет 103 


POKE55,174:POKE56,23:CLR: POKE788,194 


:rem 76 
5=6063:Е=7658 :гет 136 
PRINT" {CLR}";CHR$(14) :AD=S :rem 56 
PRINTRIGHTS ("ØØØØ"+MIDS (STRS(AD),2),5 
):":": :FORJ-1TO6 :rem 234 
GOSUB570:1FN--lTHENJ-J-N:GOTO320 

:rem 228 
IFN<@THENPRINT: GOTO319 :rem 168 
A(J)=N:NEXTJ :rem 199 


CKSUM-AD-INT(AD/256)*256:FORI-1TO6:CK 
SUM=(CKSUM+A(I))AND255:NEXT  :rem 200 
PRINTCHR$(18);:GOSUB570:PRINTCHRS (22) 
:rem 234 
IFN=CKSUMTHEN5 39 :rem 255 
PRINT: PRINT"LINE ENTERED WRONG": PRINT 
"RE-ENTER": PRINT: GOSUB198@ : GOTO319 


:rem 129 
GOSUB2000 :rem 218 
FORI-1TO6:POKEAD-I-1,A(I):NEXT:rem 80 
AD=AD+6 : IFAD< ETHEN31@ :rem 212 
GOTO716 :rem 108 
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57@ 
580 
581 
585 
590 
629 
619 
620 
638 
640 
650 
660 
670 
686 
6968 


692 
695 


700 
710 


728 
730 


740 
750 
760 
762 
763 
765 
766 
770 


ИӘ, 
780 


781 


782 
845 


1000 
1001 
1002 
1003 


2000 
2001 


2002 


М=@:2=@ :rem 88 
PRINT"K-3"; :rem 79 
СЕТАб:ІҒАб-""ТНЕМ581 :гет 95 
PRINTCHRS (2Ø);:A=ASC(A$):IFA=130RA=44 
ORA=32THEN67Ø :гет 229 
IFA>128THENN=-A: RETURN :rem 137 
IFA<>2Ø THEN 63Ø srem 1@ 
GOSUB69Ø:IFI=1ANDT=44THENN=-1:PRINT" 
{LEFT} (LEFT]";:GOTO699 :rem 172 
GOTO578 srem 199 
IFA<480RA>57THEN589 :гет 105 
PRINTAS; :N=N*10+A-48 :rem 106 
IFN»255 THEN A=2Ø:GOSUBlØØØ:GOTO6ØØ 
:rem 229 
7-7-1:1Е7<3ТНЕМ580 :rem 71 
IFZ-ÜTHENGOSUB19009:GOTO579 :rem 114 
PRINT",";:RETURN :rem 240 
5%-РЕЕК(209)-256%РЕЕК(210)-РЕЕК(211) 
:rem 149 
FORI-1TO3:T-PEEK(S$-I) :rem 68 
IFT«»44ANDT«»58THENPOKES$-I,32:NEXT 
:rem 205 
PRINTLEFT$("Í3 LEFT]",I-1); : RETURN 
:rem 7 
PRINT"(CLR)(RVS)*** SAVE ***(3 DOWN)" 
Е :гет 236 
INPUT" {DOWN} FILENAME";F$ :rem 228 
PRINT:PRINT"(2 DOWN}{RVS}T{OFF}APE OR 
{RVS}D{OFF}ISK: (T/D)" ` :rem 228 
GETAS : IFAS <> "Т"АМЮА$ <> "D"THEN 740 
:rem 36 
DV=1-7* (A$="D") : IFDV=8THENFS$="@:"+F$ 
:гет 158 
TS=FS : ZK=PEEK(53)+256*PEEK(54)-LEN(TS 
):РОКЕ782,7К/256 :rem 3 
POKE781,ZK-PEEK(782)*256:POKE780 , LEN ( 
T$):SYS65469 :rem 109 
POKE78@,1:POKE781, DV: POKE782,1:SYS654 
66 :rem 69 
РОКЕ254,5/256:РОКЕ253,5-РЕЕК(254)%256 
:РОКЕ780,253 :rem 12 
РОКЕ782,Е/256:РОКЕ781,Е-РЕЕК(782)%256 
:5Ү565496 :геп 124 
IF (PEEK(783)AND1)OR(ST AND191)THEN780 
:rem 111 
PRINT" {DOWN } DONE. " : END :гет 1Ø6 
PRINT" {DOWN}ERROR ON SAVE.{2 SPACES}T 
RY AGAIN.":IFDV=1THEN7 28 :rem 171 
OPEN15,8,15:INPUT£15,El1$,E2$:PRINTEl$ 
;E2$ :CLOSE15:GOTO720 :rem 183 
GOTO729 :rem 115 
POKE78@,1:POKE781, DV: POKE782,1:SYS654 
66 :гет 70 
REM BELL TONE :rem 250 
POKE36878,15:POKE36874,190 :геп 206 
FORW=1T0368 :NEXTW :rem 117 
POKE36878, 9: POKE36874,@: RETURN 
:rem 74 
REM BELL SOUND :rem 78 
FORW=15TO@STEP-1 : POKE36878, W: POKE368 
76,240:NEXTW :rem 22 
POKE36876 , 0: RETURN :rem 119 


Program 2: CUT-OFF!—VIC Version 


6063 
6969 
6075 
6081 
6087 
6093 


:032,081,025,076,181,023,081 
:173,066,003,024,105,001,041 
:141,066,003,173,067,003,128 
:105,000,141,067,003,174,171 
:060,003,032,020,027,169,254 
:001,141,065,003,032,078,013 
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6099 
6105 
6111 
6117 
6123 
6129 
6135 
6141 
6147 
6153 
6159 
6165 
6171 
6177 


6183 
6189 
6195 
6201 
6207 
6213 
6219 
6225 
6231 
6237 
6243 
6249 
6255 
6261 
6267 
6273 
6279 
6285 
6291 
6297 
6303 
6309 
6315 
6321 
6327 
6333 
6339 
6345 
6351 
6357 
6363 
6369 
6375 
6381 
6387 
6393 
6399 
6405 
6411 
6417 
6423 
6429 
6435 
6441 
6447 
6453 
6459 
6465 
6471 
6477 
6483 
6489 
6495 
6501 
6507 
6513 


:027,162,002,161,247,201,243 
:032,240,032,032,029,027,097 
:032,143,029,032,090,026,063 
:173,068,003,201,000,240,146 
:080,173,069,003,201,000,249 
:240,073,032,097,024,032,227 
:092,028,076,181,023,032,167 
:029,027,169,000,141,065,172 
:003,032,227,027,162,000,198 
:161,247,201,032,240,032,154 
:032,029,027,032,143,029,051 
:032,090,026,173,068,003,157 
:201,000,240,029,173,069,227 
:003,201,000,240,022,032,019 


:097,024,032,092,028,076,132 
:181,023,032,029,027,173,254 
:031,145,041,032,240,006,034 
:076,181,023,076,007,029,193 
:173,031,145,041,032,240,213 
:249,162,250,032,020,027,041 
:173,031,145,041,032,208,193 
:249,173,031,145,041,032,240 
:240,249,162,250,032,020,016 
:027,076,181,023,169,147,204 
:032,210,255,169,025,141,163 
:015,144,162,000,169,160,243 
:157,000,030,169,000,157,112 
:000,150,232,224,022,208,185 
:241,162,000,169,160,157,244 
:228,031,169,000,157,228,174 
:151,232,224,022,208,241,189 
:169,000,133,253,169,030,127 
:133,254,169,000,133,251,063 
:169,150,133,252,162,000,251 
:169,160,160,000,145,253,022 
:169,000,145,251,160,021,143 
:169,160,145,253,169,000,043 
:145,251,024,165,253,105,096 
:022,133,253,165,254,105,091 
:000,133,254,024,165,251,248 
:105,022,133,251,165,252,099 
:105,000,133,252,232,224,123 
:023,208,205,169,004,162,210 
:007,157,000,150,232,224,215 
:015,208,248,162,000,189,017 
:072,025,240,006,157,007,220 
:030,232,208,245,169,006,097 
:141,248,150,169,002,141,064 
:2001,151,169,081,141,248,010 
:030,169,087,141,001,031,196 
:169,000,141,066,003,141,007 
:067,003,169,007,141,075,211 
2003,169,020,141,074,003,165 
:169,001,141,070,003,169,058 
:031,141,971,003,169,248,174 
:141,072,003,169,030,141,073 
:073,003,024,162,000,160,201 
:002,032,240,255,174,061,037 
:003,173,062,003,032,205,013 
:221,024,162,000,160,016,124 
:032,240,255,174,063,003,058 
:173,064,003,032,205,221,251 
:096,131,149,148,173,143,143 
:134,134,161,ØØØ,169,ØØØ,163 
:141,061,003,141,062,003,238 
:141,063,003,141,064,003,248 
:169,081,141,077,003,169,223 
:087,141,076,003,032,097,025 
:024,169,004,162,002,157,113 
:154,150,232,224,020,208,077 


6519 
6525 
6531 
6537 
6543 
6549 
6555 
6561 
6567 
6573 
6579 
6585 
659 
6597 
66Ø3 
6609 
6615 
662 
6627 
6633 
6639 
6645 
665 
6657 
6663 
6669 
6675 
6681 
6687 
6693 
6699 
6705 
6711 
6717 
6723 
6729 
6735 
6741 
6747 
6753 
6759 
6765 
6771 
6777 
6783 
6789 
6795 
6801 
6807 
6813 
6819 
6825 
6831 
6837 
6843 
6849 
6855 
6861 
6867 
6873 
6879 
6885 
6891 
6897 
6903 
6909 
6915 
6921 
6927 
6933 
6939 


:248,162,002,157,198,150,012 
:232,224,020,208,248,141,174 
:018,151,162,000,189,052,191 
:026,240,006,157,156,030,240 
:232,208,245,162,000,189,155 
:071,026,240,006,157,200,081 
:030,232,208,245,169,048,063 
:141,060,003,141,018,031,043 
:162,100,032,020,027,173,169 
:031,145,041,012,201,008,099 
:240,033,201,004,240,010,139 
:173,031,145,041,032,240,079 
:063,076,167,025,173,060,243 
:003,056,233,001,201,047,226 
:240,028,141,060,003,141,048 
:018,031,076,167,025,173,187 
:060,003,024,105,001,201,097 
:058,240,020,141,060,003,231 
:141,018,031,076,167,025,173 
:169,057,141,060,003,141,036 
:018,031,076,167,025,169,213 
:048,141,060,003,141,018,144 
:031,076,167,025,173,031,242 
:145,041,032,240,249,162,102 
:250,032,020,027,173,060,057 
:003,056,233,048,170,169,180 
:050,141,060,003,224,000,241 
:240,013,173,060,003,056,058 
:233,005,141,060,003,202,163 
:076,023,026,032,097,024,059 
2169,010,141,068,003,141,063 
:069,003,096,013,015,022,011 
:005,032,019,020,009,003,143 
:011,032,021,016,047,004,192 
:015,023,014,000,020,015,154 
:032,016,009,003,011,032,176 
:004,009,006,006,009,003,116 
:021,012,020,025,000,173,080 
:070,003,205,072,003,240,172 
:003,076,230,026,173,071,164 
:003,205,073,003,208,121,204 
:173,075,003,174,074,003,099 
:201,014,240,012,201,007,022 
:240,015,201,013,240,018,080 
:201,011,240,021,224,044,100 
:240,024,076,230,026,224,185 
:020,240,017,076,230,026,236 
:224,012,240,010,076,230,169 
:026,224,021,240,003,076,229 
:230,026,173,061,003,024,162 
:109,066,003,141,061,003,034 
:173,062,003,105,000,141,141 
:062,003,173,067,003,024,251 
:109,062,003,141,062,003,049 
:174,068,003,202,142,068,076 
:003,173,063,003,024,109,056 
:066,003,141,063,003,173,136 
:064,003,105,000,141,064,070 
:003,173,067,003,024,109,078 
:064,003,141,064,003,174,154 
:069,003,202,142,069,003,199 
:096,173,065,003,010,170,234 
:189,061,003,024,109,066,175 
:003,157,061,003,189,062,204 
1003,105,000,157,062,003,065 
:173,067,003,024,125,062,195 
:003,157,062,003,174,065,211 
:003,189,068,003,056,233,049 
:001,157,068,003,096,160,244 
:000,200,208,253,202,208,068 
:248,096,174,065,003,188,033 


6945 
6951 
6957 
6963 
6969 
6975 
6981 
6987 
6993 
6999 
7005 
7011 
7017 
7023 
7029 
7035 
7041 
7047 
7053 
7059 
7065 
7071 
7077 
7083 
7089 
7095 
7101 
7107 
ILICE] 
Gans) 
7125 
ТЕЗ! 
7137 
7143 
7149 
7155 
7161 
7167 
G73 
9710/9) 
7185 
7191 
7197 
7263 
7209 
H215 
7221 
7227 
7233 
7239 
7245 
ПӘЛЕ 
VARY 
7263 
7269 
7275 
7281 
7287 
7293 
7299 
7365 
7311 
ТТ) 
7323 
7329 
7335 
7341 
7347 
7353 
7359 
7365 


:076,003,138,010,170,181,099 
:247,157,070,003,181,248,177 
:157,071,003,152,129,247,036 
:181,248,024,105,120,149,110 
:248,224,002,208,008,169,148 
:006,129,247,032,180,029,174 
:096,169,002,129,247,032,232 
:180,029,096,162,127,142,043 
:034,145,173,032,145,041,139 
:128,074,074,141,078,003,073 
:162,255,142,034,145,173,236 
:031,145,041,028,013,078,179 
:003,074,074,174,065,003,242 
:201,014,240,018,201,007,024 
:240,038,201,013,240,058,139 
:201,011,240,078,189,074,148 
:003,076,111.027,157,074,065 
:003,138,010,170,956,189,189 
:070,003,233,022,149,247,097 
:189,071,003,233,000,149,024 
:248,076,226,027,157,074,193 
:003,138,010,170,024,189,181 
:070,003,105,001,149,247,228 
:189,071,003,105,000,149,176 
:248,076,226,027,157,074,217 
:003,138,010,170,024,189,205 
:070,003,105,022,149,247,017 
:189,071,003,105,000,149,200 
:248,076,226,027,157,074,241 
:003,138,010,170,056,189,005 
:070,003,233,001,149,247,148 
:189,071,003,233,000,149,096 
:248,096,174,065,003,165,208 
:197,201,012,240,018,201,076 
:021,240,038,201,044,240,253 
:058,201,020,240,078,189,005 
:074,003,076,232,027,157,050 
:074,003,138,010,170,056,194 
:189,070,003,233,022,149,159 
:247,189,071,003,233,000,242 
:149,248,076,091,028,157,254 
:074,003,138,010,170,024,186 
:189,070,003,105,001,149,034 
:247,189,071,003,105,000,138 
:149,248,076,091,028,157,022 
:074,003,138,010,170,024,210 
:189,070,003,105,022,149,079 
:247,189,071,003,105,000,162 
:149,248,076,091,028,157,046 
:074,003,138,010,170,056,010 
:189,070,003,233,001,149,210 
:247,189,071,003,233,000,058 
:149,248,096,162,000,189,165 
:231,028,240,006,157,159,148 
:030,232,208,245,162,000,210 
:189,244,028,240,006,157,203 
:203,030,232,208,245,162,169 
:000,189,000,029,240,006,071 
:157,054,031,232,208,245,028 
:162,000,189,000,029,240,239 
:006,157,064,031,232,208,067 
:245,169,004,162,000,157,112 
:155,150,232,224,020,208,114 
:248,162,000,157,199,150,047 
:232,224,020,208,248,162,231 
:000,157,053,151,232,224,216 
:020,208,248,024,162,014,081 
:160,008,032,240,255,174,024 
:069,003,169,000,032,205,151 
:221,024,162,014,160,018,022 
:032,240,255,174,068,003,201 
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7371 :169,000,032,205,221,173,235 
7377 :031,145,041,032,208,249,147 
7383 :173,031,145,041,032,240,109 
7389 :249,162,000,032,020,027,199 
7395 :032,097,024,096,016,018,254 
7401 :005,019,019,032,002,021,075 
7407 :020,020,015,014,000,0202,072 
7413 :015,032,003,015,014,020,088 
7419 :009,014,021,005,000,012,056 
7425 :009,022,005,019,061,0020,117 
7431 :032,097,024,162,000,189,255 
7437 :106,029,240,006,157,160,199 
7443 :030,232,208,245,162,000,128 
7449 :189,116,029,240,006,157,250 
7455 :203,030,232,208,245,162,087 
7461 :000,189,129,029,240,006,118 
7467 :157,056,031,232,208,245,204 
7473 :169,004,162,000,157,155,184 
7479 :150,232,224,020,208,248,113 
7485 :162,000,157,199,150,232,193 
7491 :224,020,208,248,162,000,161 
7497 :157,053,151,232,224,020,142 
7503 :208,248,173,031,145,041,157 
7509 :032,208,249,173,031,145,155 
7515 :041,032,240,249,162,250,041 
7521 :032,020,027,032,081,025,058 
7527 :076,181,023,007,001,013,148 
7533 :005,032,015,022,005,018,206 
7539 :000,016,018,005,019,019,192 
7545 :032,002,021,022,020,015,231 
7551 :014,000,020,015,032,016,224 
7557 :012,001,025,032,001,007,211 
7563 :001,009,014,000,169,220,040 
7569 :141,013,144,169,015,141,000 
7575 :014,144,162,000,032,020,011 
7581 :027,173,014,144,056,233,036 
7587 :001,141,014,144,162,100,213 
7593 :032,020,027,201,000,208,145 
7599 :238,141,013,144,096,173,212 
7605 :065,003,201,000,240,022,200 
7611 :169,200,141,012,144,169,254 
7617 :015,141,014,144,174,060,229 
7623 :003,032,020,027,169,000,194 
7629 :141,012,144,096,169,180,179 
7635 :141,012,144,169,015,141,065 
7641 :014,144,174,060,003,032,132 
7647 :020,027,169,000,141,012,080 
7653 :144,096,013,013,013,013,009 


Program 3: CUT-OFF! 64 Version 


49152 :032,200,193,0276,006,192,187 
49158 :173,066,003,024,105,001,122 
49164 :141,066,003,173,067,003,209 
49170 :105,000,141,067,003,174,252 
49176 :060,003,032,145,195,169,116 
49182 :001,141,065,003,032,203,219 
49188 :195,162,002,161,247,201,236 
49194 :032,240,032,032,154,195,215 
49200 :032,119,197,032,215,194,069 
49206 :173,068,003,201,000,240,227 
49212 :083,173,069,003,201,000,077 
49218 :240,076,032,190,192,032,060 
49224 :074,196,076,006,192,032,136 
49238 :154,195,169,000,141,065,034 
49236 :003,032,203,195,162,000,167 
49242 :161,247,201,032,240,032,235 
49248 :032,154,195,032,119,197,057 
49254 :032,215,194,173,068,003,019 
49260 :201,000,240,032,173,069,055 
49266 :003,201,000,240,025,032,103 
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49272 
49278 
49284 
49290 
49296 
49302 
49308 
49314 
49320 
49326 
49332 
49338 
49344 
49350 
49356 
49362 
49368 
49374 
49380 
49386 
49392 
49398 
49404 
49410 
49416 
49422 
49428 
49434 
49440 
49446 
49452 
49458 
49464 
49470 
49476 
49482 
49488 
49494 
49500 
49506 
49512 
49518 
49524 
49530 
49536 
49542 
49548 
49554 
49560 
49566 
49572 
49578 
49584 
49590 
49596 


49602 
49668 
49614 
49620 
49626 
49632 
49638 
49644 
49650 
49656 
49662 
49668 
49674 
49680 
49686 


:190,192,032,074,196,076,112 
:006,192,032,154,195,173,110 
:001,220,045,000,220,041,147 
:016,240,006,076,006,192,162 
:076,251,196,173,001,220,037 
:045,000,220,041,016,240,200 
:246,162,250,032,145,195,162 
:173,001,220,045,000,220,053 
:041,016,208,246,173,001,085 
:220,045,000,220,041,016,204 
:240,246,162,250,032,145,231 
:195,076,006,192,169,147,203 
:032,210,255,169,015,141,246 
:033,208,169,005,141,032,018 
:208,162,000,169,160,157,036 
:000,004,169,000,157,000,028 
:216,232,224,040,208,241,097 
:162,000,169,160,157,192,038 
:007,169,000,157,192,219,204 
:232,224,040,208,241,169,068 
:000,133,253,169,004,133,164 
:254,169,000,133,251,169,198 
:216,133,252,162,000,169,160 
:160,160,000,145,253,169,121 
:000,145,251,160,039,169,004 
:160,145,253,169,000,145,118 
:251,024,165,253,105,040,090 
:133,253,165,254,105,000,168 
:133,254,024,165,251,105,196 
:040,133,251,165,252,105,216 
:000,133,252,232,224,025,142 
:208,205,169,012,162,016,054 
:157,000,216,232,224,024,141 
:208,248,169,131,141,016,207 
:004,169,149,141,017,004,040 
:169,148,141,018,004,169,211 
:173,141,019,004,169,143,217 
:141,020,004,169,134,141,183 
:021,004,141,022,004,169,197 
:161,141,023,004,169,006,090 
:141,199,217,169,002,141,205 
:209,217,169,081,141,199,102 
:005,169,087,141,209,005,220 
:169,000,141,066,003,141,139 
:067,003,169,007,141,075,078 
:003,169,011,141,074,003,023 
:169,209,141,070,003,169,133 
:005,141,071,003,169,199,222 
:141,072,003,169,005,141,171 
:073,003,169,152,032,210,029 
:255,024,162,000,160,007,004 
:032,240,255,174,061,003,167 
:173,062,003,032,205,189,072 
:024,162,000,160,029,032,077 
:240,255,174,063,003,173,072 


:064,003,032,205,189,096,015 
:169,000,141,061,003,141,203 
:062,003,141,063,003,141,107 
:064,003,169,081,141,077,235 
:003,169,087,141,076,003,185 
:032,190,192,169,012,162,213 
:009,157,240,216,232,224,028 
:030,208,248,162,009,157,026 
:064,217,232,224,030,208,193 
:248,141,163,217,162,000,155 
:189,171,194,249,006,157,187 
:249,004,232,208,245,162,080 
:000,189,193,194,240,006,064 
:157,073,005,232,208,245,168 
:169,048,141,060,003,141,072 


49692 
49698 
49704 
4971Ø 
49716 
49722 
49728 
49734 
49740 
49746 
49752 
49758 
49764 
49770 
49776 
49782 
49788 
49794 
49800 
49806 
49812 
49818 
49824 
49830 
49836 
49842 
49848 
49854 
49860 
49866 
49872 
49878 
49884 
49890 
49896 
49902 
49908 
49914 
49920 
49926 
49932 
49938 
49944 
49950 
49956 
49962 
49968 
49974 
49980 
49986 
49992 
49998 
50004 
50010 
50016 
50022 
50028 
50034 
50040 
50046 
50052 
50058 
50064 
500702 
50076 
50082 
50088 
50094 
50100 
50106 
50112 


:163,005,162,100,032,145,123 
:195,173,001,220,041,015,167 
:201,014,240,033,201,013,230 
:240,010,173,001,220,041,219 
:016,240,063,076,030,194,159 
:173,060,003,056,233,001,072 
:201,047,240,028,141,060,013 
:003,141,163,005,076,030,232 
:194,173,060,003,024,105,123 
:001,201,058,240,020,141,231 
:060,003,141,163,005,076,024 
:030,194,169,057,141,060,233 
:003,141,163,005,076,030,006 
:194,169,048,141,060,003,209 
:141,163,005,076,030,194,209 
:173,001,220,041,016,240,041 
:249,162,250,032,145,195,133 
:173,060,003,056,233,048,191 
:170,169,050,141,060,003,217 
:224,000,240,013,173,060,084 
:003,056,233,005,141,060,134 
:003,202,076,142,194,032,035 
:190,192,169,010,141,068,162 
:003,141,069,003,096,013,235 
:015,022,005,032,010,015,015 
:025,019,020,009,003,011,009 
:032,021,016,047,004,015,063 
:023,014,000,020,015,032,038 
:003,008,015,015,019,005,005 
:032,019,011,009,012,012,041 
:032,012,005,022,005,012,040 
:000,173,070,003,205,072,225 
:003,240,003,076,099,195,068 
:173,071,003,205,073,003,242 
:208,121,173,075,003,174,218 
:074,003,201,014,240,012,014 
:201,007,240,015,201,013,153 
:240,018,201,011,240,021,213 
:224,013,240,024,076,099,164 
:195,224,011,240,017,076,001 
:099,195,224,014,240,010,026 
:076,099,195,224,007,240,091 
:003,076,099,195,173,061,119 
:003,024,109,066,003,141,120 
:061,003,173,062,003,105,187 
:000,141,062,003,173,067,232 
:003,024,109,062,003,141,134 
:062,003,174,068,003,202,054 
:142,068,003,173,063,003,000 
:024,109,066,003,141,063,216 
:003,173,064,003,105,000,164 
:141,064,003,173,067,003,017 
:024,109,064,003,141,064,233 
:003,174,069,003,202,142,171 
:069,003,096,173,065,003,249 
:010,170,189,061,003,024,047 
:109,066,003,157,061,003,251 
:189,062,003,105,000,157,118 
:062,003,173,067,003,024,196 
:125,062,003,157,062,003,026 
:174,065,003,189,068,003,122 
:056,233,001,157,068,003,144 
:096,160,000,200,208,253,037 
:202,208,248,096,174,065,119 
:003,188,076,003,138,010,062 
:170,181,247,157,070,003,222 
:181,248,157,071,003,152,212 
:129,247,181,248,024,105,084 
:212,149,248,224,002,208,199 
:008,169,006,129,247,032,009 
:170,197,096,169,002,129,187 


50118 
50124 
501302 
50136 
50142 
50148 
50154 
50160 
50166 
50172 
50178 
50184 
50190 
50196 
50202 
50208 
50214 
50220 
50226 
50232 
50238 
50244 
50250 
50256 
50262 
50268 
50274 
50280 
50286 


50292 
50298 


50304 
50310 
50316 
50322 
50328 
50334 
50340 
50346 
50352 
50358 
50364 
50370 
50376 
50382 
50388 
50394 
50400 
50406 
50412 
50418 
50424 
50430 
50436 
50442 
50448 
59454 
504690 
50466 
50472 
50478 
50484 
50490 
50496 
50502 
50508 
50514 
50520 
50526 
50532 
50538 


:247,032,170,197,096,174,090 
:065,003,189,000,220,041,210 
:015,201,014,240,018,201,131 
:007,240,038,201,013,240,187 
:058,201,011,240,078,189,231 
:074,003,076,211,195,157,176 
:074,003,138,010,170,056,173 
:189,070,003,233,040,149,156 
:247,189,071,003,233,000,221 
:149,248,076,073,196,157,127 
:074,003,138,010,170,024,165 
:189,070,003,105,001,149,013 
:247,189,071,003,105,000,117 
:149,248,076,073,196,157,151 
:074,003,138,010,170,024,189 
:189,070,003,105,040,149,076 
:247,189,071,003,105,000,141 
:149,248,076,073,196,157,175 
:074,003,138,010,170,056,245 
:189,070,003,233,001,149,189 
:247,189,071,003,233,000,037 
:149,248,076,073,196,096,138 
:162,000,189,219,196,240,056 
:006,157,255,004,232,208,174 
:245,162,000,189,232,196,086 
:240,006,157,079,005,232,043 
:208,245,162,000,189,244,122 
:196,240,006,157,017,006,214 
:232,208,245,162,000,189,122 
:244,196,240,006,157,033,224 
:006,232,208,245,169,012,226 
:162,009,157,240,216,232,120 
:224,030,208,248,162,009,247 
:157,064,217,232,224,030,040 
:208,248,162,001,157,008,162 
:218,232,224,037,208,248,039 
:024,162,013,160,015,032,052 
:240,255,174,069,003,169,050 
:000,032,205,189,024,162,014 
2913,168, 031,932, 240, 255,139 
:174,968, 823.169, 888,032,116 
:2Ø5, 189,173, 901, 220,945,253 
2008, 228,041,916, 208, 246,157 
2173, 901,220,945, ØØØ, 220,091 
:041,016,240,246,162,000,143 
:032,145,195,032,190,192,230 
:096,016,018,005,019,019,135 
:032,002,021,020,020,015,078 
:014,000,020,015,032,003,058 
:015,014,020,009,014,021,073 
:005,000,012,009,022,005,039 
:019,061,000,032,190,192,230 
:162,000,189,082,197,240,100 
:006,157,000,005,232,208,100 
:245,162,000,189,092,197,127 
:240,006,157,071,005,232,215 
:208,245,169,012,162,001,051 
:157,240,216,232,224,030,103 
:208,248,162,001,157,064,106 
:217,232,224,037,208,248,182 
:173,001,220,045,000,220,193 
241,816, 208, 246,162, 250, 207 
:032,145,195,173, 081, 229,056 
2045, 000, 220,841,816, 248,114 
:246,162,250,032,145,195,076 
:032,200,193,076,006,192,007 
:007,001,013,005,032,015,155 
:022,005,018,000,016,018,167 
:005,019,019,032,002,021,192 
:020,020,015,014,032,020,221 
:015,032,016,012,001,025,207 
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50544 :032,001,007,001,009,014,176 
50550 :000,169,015,141,024,212,167 
50556 :169,129,141,004,212,169,180 
50562 :009,141,005,212,169,100,254 
50568 :141,000,212,169,012,141,043 
50574 :001,212,169,015,141,032,200 
50580 :208,162,080,032,145,195,202 
50586 :056,233,001,201,000,208,085 
50592 :241,169,000,141,004,212,159 
50598 :141,005,212,096,169,008,029 
50604 :141,024,212,169,016,141,107 
50610 :005,212,169,128,141,006,071 
50616 :212,169,010,162,000,024,249 
50622 :109,065,003,232,224,010,065 
50628 :208,247,141,001,212,169,150 
50634 :037,141,000,212,169,033,026 
50640 :141,004,212,174,060,003,034 
50646 :032,145,195,169,000,141,128 
50652 :004,212,141,005,212,141,167 
50658 :006,212,096,013,013,013,067 


Beginner's Corner 


(Article on page 84.) 


BEFORE TYPING... 


Before typing in programs, please refer to “How 
To Type COMPUTE!’s Gazette Programs,” "A 
pee Guide To Typing In Programs,” and 
“The Automatic Proofreader” that appear before 
the Program Listings. 


Program 1: Averages—VIC Version 


4 PRINT"(CLR)(3 DOWN}{BLU}":PRINT" 
(4 SPACES] *** ke PRINT" 
(4 SPACES]* AVERAGES *":PRINT" 


(4 SPACES) * * een :rem 157 

6 FORI-1TO8:READNS$(I):NEXT :rem 138 
8 DATASUE,ANN,RITA,JUNE,BOB,JOE,JOHN,BILL 
:rem 181 

lø DEF FNF(X)=INT(X*RND(@)+1) тет 111 
12 PRINT"{4 DOWN}CHOOSE:":PRINT"1 INSTRUC 
TIONS":PRINT"2 PROBLEMS" :rem 5 

14 GETC$:IFC$-"2"THEN5O :rem 35 
16 IFC$<>"1"THEN14 :rem 224 


18 PRINT" {CLR} {DOWN}TO CALCULATE THE": PRI 
NT"AVERAGE OF SEVERAL":PRINT"NUMBERS, 
{SPACE}FIRST ADD" :гет 65 

20 PRINT"THE NUMBERS THEN":PRINT"DIVIDE Т 
HE TOTAL BY":PRINT"THE NUMBER OF ITEMS 


ош :rem 25 

22 PRINT"{3 DOWN}{GRN}PRESS RETURN." 
:rem 33 
24 GETR$:1FR$-""THEN24 :rem 17 
26 IFASC(R$)<>13THEN24 :rem 8 


28 PRINT"{CLR}{BLU}HERE IS AN EXAMPLE. 
{DOWN} ": PRINT" {BLK}FIND THE AVERAGE OF 
";PRINT"THESE NUMBERS: {DOWN}" :rem 159 

30 GOSUB196:PRINT" {DOWN} {BLU}ADD FOR ТОТА 


L":PRINT"{RED}SUM = ";T :rem 209 
31 PRINT"{2 DOWN}{BLU}DIVIDE BY NUMBER":P 

RINT"OF ITEMS" :rem 177 
32 PRINTT;"/";N;" = ";T/N:PRINT"{2 DOWN} 

{GRN}PRESS Fl TO CONTINUE." :rem 202 
34 GETRS:IFRS<>"{F1}"THEN34 :rem 213 


36 PRINT"{CLR}{BLU}NOW TRY A PROBLEM.":PR 
INT" {BLK} {DOWN}GIVEN THESE NUMBERS":GO 
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SUB196 :гет 106 
INPUT" {BLU} TOTAL{RED}";S:IFS=T ТНЕМ42 

:гет 206 
PRINT" {DOWN } {BLU }NO, THE TOTAL IS":PRI 
NTTAB(6);T :rem 227 


PRINT" { DOWN } {BLU }NOW DIVIDE.":PRINT" 
{BLK}THE AVERAGE IS":INPUTA:IFABS(A-T/ 


N)<.@1THEN46 :rem 239 
PRINT" {DOWN}{BLU}NO, THE AVERAGE IS":G 
OTO32 srem 130 


PRINT" {DOWN} { BLU } CORRECT | " : PRINT" 
{DOWN} {GRN}PRESS F7 TO CONTINUE" 


:rem 234 
GETR$:1IFR$«»"ÍF7)"THENA48 :rem 226 
P=FNF(3):ONP GOTO52,6Ø,7Ø :rem 60 


PRINT"(CLR)ÍBLU)A BOWLING TEAM HAD":PR 
INT"THE FOLLOWING SCORES":PRINT"FOR ON 


E GAME. {DOWN} ":Т=0 :rem 197 
X-INT(2*RND(2)) :rem 251 
FORI=1T04:S=115+FNF (40) : T=T+S: PRINTNS ( 
I-X*4);TAB(8)S:NEXT :rem 179 
PRINT"(ÍDOWN])WHAT WAS THE TEAM'S" 

:rem 240 
PRINT"AVERAGE SCORE FOR":PRINT"THE GAM 
E?":N-4:F-10:GOTO78 :rem 219 


PRINT"(CLR)ÍBLU]A BASKETBALL TEAM WON" 
:PRINT"THE FOLLOWING NUMBER": PRINT"OF 


{SPACE}GAMES. {DOWN} " : T=Ø :rem 199 
N=4+FNF (3) :Y=1983-N :rem 208 
FORI=1TON:S=5Ø+FNF (20) :T=T+S: Y=Y+1:PRI 
NTY; TAB(9)S:NEXT :rem 138 


PRINT"(DOWN]WHAT WAS THE AVERAGE": PRIN 
T"NUMBER OF GAMES PER":PRINT"YEAR THE 


{SPACE}TEAM WON" :rem 62 
PRINT"DURING THESE YEARS?":F=6:GOTO78 
:rem 25 


PRINT" {CLR} {BLU}A FULLBACK GAINED THE" 
:PRINT"FOLLOWING NUMBER OF":PRINT"YARD 


S IN SEVERAL" :rem 73 
PRINT"FOOTBALL GAMES. {DOWN}":T=0:N=4+F 
NF (3) srem 182 
FORI=1TON: S=69+FNF (30) :T=T+S: PRINTTAB ( 
5)S:NEXT :rem 112 


PRINT" {DOWN }WHAT WAS THE BACK'S":PRINT 
"AVERAGE YARDS GAINED":PRINT"PER GAME? 
":Е-10 :гет 116 
A=INT(T/N+.5):C=FNF(4):ONC GOTO8Ø, 82,8 
4,86 :гет 36 
PRINT"A";A:FORI-1TO3:A-A-FNF(F):PRINTC 
HRS (66+1) ;A:NEXT: GOTO88 :гет 12 
PRINT"A ";A-FNF(F):PRINT"B ";A:A=A+FNF 
(F):PRINT"C ";A:A=A+FNF(F):PRINT"D ";A 
:GOTO88 :rem 1 
I-A-FNF(F):J-I-FNF(F):PRINT"A ";J:PRIN 
T"B ";I:PRINT"C ";A:PRINT"D ";A+FNF(F) 
:GOTO88 :rem 47 
I=A-FNF(F) :J=I-FNF(F) :K=J-FNF(F):PRINT 
"A ":K:PRINT"B ";J:PRINT"C ";I:PRINT"D 


"TA :rem 102 
GETA$:IF(A$<"A")+(A$>"D")THEN88:rem 59 
IFASC(A$)-64=C THEN98 :rem 60 


92 PRINT"{DOWN}NO, THE ANSWER IS (RED]";C 
HR$ (64+C):PRINT"(GRN]PRESS ЕЗ TO CONTI 
NUE" :геп 27 

94 GETAS:IFAS="{F3}"THEN5S :rem 123 

96 GOTO94 :rem 21 

98 PRINT"CORRECT!":PRINT" { DOWN} {GRN}PRESS 
:":PRINT" Fl ANOTHER PROBLEM":PRINT" F 
7 END PROGRAM" :гет 145 

1@@ GETAS:IFAS$-"ÍF1]"THEN59 :гет 158 

102 IFAS<>"{F7}"THEN1OD :rem 141 


104 
106 


108 


GOTO1Ø8 :rem 103 
N=FNF (3)+4:T=Ø: FORI=1TON:J=1Ø+FNF (1Ø) 
:PRINTTAB (6)J:T=T+J:NEXT: RETURN 

:rem 18 


PRINT" {CLR} {BLU }" : END :rem 45 


Program 2: Averages—64 Version 


26 


POKE 53281,1 :rem 241 
PRINT "{CLR}{3 DOWN}{BLU}" :rem 25 
PRINT "(4 SPACES]****s****" irem 45 
PRINT "(4 SPACES]* AVERAGES *":rem 216 
PRINT "(4 ЅРАСЕЅ}*******%**%*%%" irem 47 
FOR І=1 TO 8:READ NS$(I):NEXT :rem 187 


DATA SUE,ANN,RITA,JUNE,BOB,JOE,JOHN,BI 


LL :rem 229 
DEF FNF(X)=INT(X*RND(@)+1) :rem 119 
PRINT "(4 DOWN}CHOOSE:" :rem 161 
PRINT "1 INSTRUCTIONS" :rem 73 
PRINT "2 PROBLEMS" :rem 250 
GET C$ :rem 219 
IF C$z"2" THEN 500 :rem 2 
IF C$«»"1" THEN 130 :rem 62 


PRINT "{CLR}{DOWN}TO CALCULATE THE" 
:rem 30 
PRINT "AVERAGE OF SEVERAL" :rem 11 
PRINT "NUMBERS, FIRST ADD" :rem 3 
PRINT "THE NUMBERS THEN" :rem 151 
PRINT "DIVIDE THE TOTAL BY" :rem 24 
PRINT "THE NUMBER OF ITEMS." :rem 83 
PRINT "(3 DOWN}{GRN}PRESS RETURN." 
:rem 81 

GET R$:1F R$-"" THEN 230 :rem 111 
IF ASC(R$)«»13 THEN 230 :rem 101 
PRINT "{CLR}{BLU}HERE IS AN EXAMPLE. 
{DOWN} " :rem 189 
PRINT "{BLK}FIND THE AVERAGE OF" 

:rem 139 
PRINT "THESE NUMBERS: {DOWN}" :rem 74 
GOSUB 1200 :rem 221 
PRINT "{DOWN}{BLU}ADD FOR TOTAL" 

:rem 208 
PRINT "{RED}SUM = ";T :rem 65 
PRINT "(2 DOWN}{BLU}DIVIDE BY NUMBER" 

:rem 191 
PRINT "OF ITEMS" :rem 125 
PRINT T;"/";Ng" = ";T/N :rem 118 
PRINT "(2 DOWN}{GRN}PRESS Fl TO CONTI 
NUE." :rem 226 


GET R$:1F R$«»"(ÍFl1]" THEN 350 :rem 55 


PRINT "{CLR}{BLU}NOW TRY A PROBLEM." 
:rem 143 

PRINT"ÍBLK)ÍDOWN]GIVEN THESE NUMBERS" 
:rem 26 
GOSUB 1200 :rem 222 
INPUT "{BLU}TOTAL{RED}";S :rem 189 
IF S-T THEN 420 :rem 204 


PRINT "{DOWN}{BLU}NO, THE TOTAL IS":P 
RINT TAB(6)T :rem 217 
PRINT "ÍDOWN]ÍBLU]NOW DIVIDE." 

:rem 110 
PRINT "{BLK}THE AVERAGE IS ";:rem 171 
INPUT A :rem 105 
IF A-T/N THEN 470 :rem 65 


PRINT "{DOWN}{BLU}NO, THE AVERAGE IS" 
:PRINT "TOTAL/NUMBER =";T/N:GOTO 340 

:rem 182 
PRINT "(DOWN)ÍBLU)CORRECT!" :rem 207 


PRINT "{DOWN}{GRN}PRESS F7 TO CONTINU 
E" :rem 174 
GET R$:1F RS$<>"{F7}" THEN 490 :rem 68 


500 
519 
520 


530 
540 


550 
560 
576 
580 
590 
600 


610 
620 
630 
640 


650 
660 
670 
680 
690 
700 
71@ 
720 


730 
740 
750 
760 
770 


780 
7902 


800 


810 
820 
830 
840 
850 
860 


870 


880 
890 
9202 
916 


920 
930 


940 
950 
960 
970 
980 
990 
1000 
1010 


1020 


1030 
1040 


1050 


Р-ЕМЕ(3) :гет 128 
ОМ Р СОТО 520,640,770 :rem 227 
PRINT"{CLR}{BLU}A BOWLING TEAM HAD" 

:rem 97 
PRINT THE FOLLOWING SCORES" :rem 202 
PRINT "FOR ONE GAME. {DOWN}": T= 


srem 135 
X=INT(2*RND(@) ) :rem 44 
FOR 1=1 TO 4 srem 16 
S=115+FNF(4@):T=T+S :rem 26 
PRINT N$(1I+X*4);TAB(8);S :rem 64 
МЕХТ І теш 38 
PRINT "{DOWN}WHAT WAS THE TEAM'S" 

:rem 25 
PRINT "AVERAGE SCORE FOR" :rem 198 
PRINT "THE GAME?" :гет 163 
N=4:F=1Ø:GOTO 9ØØ :rem 130 


PRINT "{CLR}{BLU}A BASKETBALL TEAM WO 
N" геш 78 
PRINT "THE FOLLOWING NUMBER" :rem 199 
PRINT "OF GAMES. (DOWN)":T=Ø :rem 169 
N=4+FNF ( 3 ) :Y=1983-N :гет 5 
FOR І=1 ТОМ :rem 45 
S=50+FNF (20) :T=T+S:Y=Y+1 :rem 110 
PRINT Y;TAB(9)S :rem 108 
МЕХТ І :rem 32 
PRINT "{DOWN}WHAT WAS THE AVERAGE" 
:rem 118 
PRINT "NUMBER OF GAMES PER" :гет 29 
PRINT "YEAR THE TEAM WON" :rem 153 
PRINT "DURING THESE YEARS?" :rem 114 
F=6:GOTO 900 ігеп 98 
PRINT "{CLR}{BLU}A FULLBACK GAINED ТН 
Е" :rem 47 
PRINT "FOLLOWING NUMBER ОЕ" :геп 127 
PRINT "YARDS ІМ SEVERAL" :rem 157 
PRINT "FOOTBALL GAMES. {DOWN} ":T=0 
:rem 99 
N=4+FNF (3) :rem 225 
FOR I-1 ТОМ :rem 41 
S=6Ø+FNF (30) :T=T+S :rem 231 
PRINT TAB(5)S :гет 217 
NEXT I :rem 37 
PRINT "{DOWN}WHAT WAS THE FULLBACK'S" 
:rem 62 
PRINT "AVERAGE NUMBER OF YARDS" 
:rem 76 
PRINT "GAINED PER GAME?" :rem 89 
Е-10 :rem 133 
A=INT(T/N+.5) :гет 178 


C-FNF(4):0N С GOTO 920,950,1000,1040 


:rem 15 
PRINT "A";A :rem 41 
FOR І=1 TO 3:A=A+FNF(F):PRINTCHRS (65+ 


I);A:NEXT :rem 146 
GOTO 1060 гет 157 
PRINT "A ";A-FNF(F) :rem 202 
PRINT "B ";A :rem 46 
A=A+FNF(F):PRINT "C ";A гет 197 
A=A+FNF(F):PRINT "D ";A :rem 199 
GOTO 1060 :rem 162 
I-A-FNF(F):J-I-FNF(F) :rem 206 
PRINT"A ";J:PRINT"B ";I:PRINT"C ";A 
:rem 244 

PRINT "D{SHIFT-SPACE}";A+FNF(F) 
:rem 144 
GOTO 1060 :rem 196 

I-A-FNF(F):J-I-FNF(F):K-J-FNF(F) 
:rem 124 


PRINT"A ";K:PRINT"B(SHIFT-SPACE]";J: 
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PRINT"C ";I:PRINT"D ";A :rem 109 
1060 СЕТ AŞ :rem 12 
1070 IF (AS<"A")+(AS>"D") THEN 1060 
:rem 107 
1080 IF ASC(A$)-64-C THEN 1130 :rem 240 
1090 PRINT "{DOWN}NO, THE ANSWER IS (RED) 
"+ CHRS (64+C) :гет 67 
1100 PRINT "{GRN}PRESS ЕЗ TO CONTINUE" 
srem 191 
1110 GET AS:IF AS="{F3}"THEN 500 :rem 1 
112@ GOTO 111@ :гет 192 
113Ø PRINT "CORRECT!" :rem 201 
1140 PRINT" {DOWN} {GRN}PRESS:" :rem 141 
1150 PRINT " Fl ANOTHER PROBLEM" :rem 49 
1160 PRINT " F7 END PROGRAM" :rem 5 
1170 GET А5:ІЕ А$="{Е1}" THEN 500 :кеп 6 
1189 IF A$«»"(F7]" THEN 1170 :rem 252 
1190 GOTO 1240 :rem 203 
1200 М=ЕМЕ(3)+4:Т=@ :rem 6 
1210 FOR I-1 ТОМ :rem 83 
1220 J=1Ø+FNF(1Ø):PRINT ТАВ(6)0:Т-Т-7 
р :rem 103 
71230 NEXT I:RETURN :rem 104 
1240 PRINT" {CLR} {BLU} ":END :rem 91 


Machine Language 
For Beginners 


(Article on page 90.) 


Program 2: 
Double Decker—VIC Version 


10 І-12288 :rem 236 
20 READ A:CK=CK+A:IF А-256 THEN 40:гет 53 
30 POKE Т,А:Т=ї+1:СОТО 20 :rem 130 
40 IF СК<>27447 THEN PRINT"ERROR ІМ DATA 
{SPACE} STATEMENTS": STOP :rem 198 
50 END :rem 66 
12288 DATA 160,0,169,6,153,0 :rem 97 
12294 DATA 148,153,0,149,200,208 :геп 40 
12300 DATA 247,160,0,169,224,153 :rem 33 
12306 DATA 0,16,153,228,17,200 :rem 184 
12312 DATA 192,22,208,245,169,21 :rem 39 
12318 DATA 133,71,169,16,133,72  :rem 251 
12324 DATA 162,24,160,0,169,224  :rem 240 
12330 DATA 145,71,200,145,71,202 :геп 25 
12336 БАТА 240,16,24,165,71,105 :геп 242 
12342 DATA 22,133,71,165,72,105  :rem 240 
12348 DATA 0,133,72,76,38,48 :rem 108 
12354 DATA 169,20,133,204,32,155 :геп 36 
12360 DATA 224,164,98,185,149,15 :геп 56 
12366 DATA 201,224,240,244,169,90 :rem 92 
12372 DATA 153,149,15,198,204,208:rem 100 
12378 DATA 235,169,215,133,251,169 
:rem 156 
12384 DATA 17,133,252,32,187,48 :rem 1 
12390 DATA 32,197,48,165,197,201 :rem 55 
12396 DATA 0,240,10,201,1,240 :rem 124 
12402 DATA 21,201,60,240,84,208 :геп 231 
12408 DATA 237,198,251,160,0,177  :rem 49 
12414 DATA 251,201,32,240,16,230 :геп 20 
12420 DATA 251,76,102,48,160,7 :rem 193 
12426 DATA 177,251,201,32,240,25  :rem 33 
12432 DATA 76,102,48,230,251,160 :геп 34 
12438 DATA 6,169,32,145,251,165 :rem 1 
12444 DATA 251,208,2,198,252,198 :геп 54 
12450 DATA 251,32,187,48,76,102 :геп 251 
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12456 DATA 48,160,0,169,32,145 :геп 202 
12462 DATA 251,230,251,208,2,230  :rem 27 
12468 DATA 252,32,187,48,76,102 srem 5 
12474 DATA 48,160,5,169,120,145 :геп 253 
12480 DATA 251,136,208,251,96,160 :геп 95 
12486 DATA 0,136,208,253,96,256 :rem 5 


Program 3: 
Double Decker—ó4 Version 


10 І-49152 :rem 236 
20 READ A:CK=CK+A:IF A=256 THEN 4@:rem 53 
30 POKE I,A:I=I+1:GOTO 20 :rem 130 
40 ТЕ СК<>29751 THEN PRINT"ERROR ІМ БАТА 

{ SPACE } STATEMENTS" : STOP :rem 198 
50 END :rem 66 
49152 DATA 160,0,169,8,153,0 :rem 99 


49158 DATA 216,153,0,217,153,0 rem 198 
49164 DATA 218,153,0,219,200,208  :rem 42 
49170 DATA 241,160,0,169,224,153 :геп 42 


49176 DATA 0,4,153,192,7,200 :rem 99 
49182 DATA 192,40,208,245,169,39 :геп 63 
49188 DATA 133,71,169,4,133,72 :rem 215 


49194 DATA 162,24,160,0,169,224 :геп 255 
49200 DATA 145,71,200,145,71,202 :rem 31 


49206 DATA 240,16,24,165,71,105  :rem 248 
49212 DATA 40,133,71,165,72,105  :rem 246 
49218 DATA 0,133,72,76,44,192 :rem 159 


49224 DATA 169,20,133,204,32,158 :rem 45 
49230 DATA 224,164,98,185,168,3 :rem 12 
49236 DATA 201,224,240,244,169,90 :rem 98 
49242 DATA 153,168,3,198,204,208 :rem 56 
49248 DATA 235,169,169,133,251,169 


:rem 170 
49254 DATA 7,133,252,32,193,192 :rem 3 
49260 DATA 32,203,192,165,197,201 :rem 97 
49266 DATA 56,240,10,201,8,240 :rem 196 


49272 DATA 21,201,35,240,84,208 :геп 248 
49278 DATA 237,198,251,160,0,177  :rem 64 
49284 DATA 251,201,32,240,16,230  :rem 35 
49290 DATA 251,76,108,192,160,7 :rem 6 
49296 DATA 177,251,201,32,240,25  :rem 48 
49302 DATA 76,108,192,230,251,160 :rem 94 
49308 DATA 6,169,32,145,251,165 :rem 7 
49314 DATA 251,208,2,198,252,198 :геп 60 
49320 DATA 251,32,193,192,76,108  :rem 52 
49326 DATA 192,160,0,169,32,145 :rem @ 
49332 DATA 251,230,251,208,2,230  :rem 33 
49338 DATA 252,32,193,192,76,108  :rem 62 
49344 DATA 192,160,5,169,120,145  :rem 51 
49350 DATA 251,136,208,251,96,160:rem 101 
49356 DATA 0,136,208,253,96,96,256 


:rem 166 
Poker 


(Article on page 56.) 


BEFORE TYPING... 
Before typing in programs, please refer to "How 
To Type COMPUTEY's Gazette Programs,” "A 
Beginner's Guide To Typing In Programs," and 
"The Automatic Proofreader" that appear before 
the Program Listings. 


Program 1: Poker—VIC Version 


20 POKE36879,200:PRINT"(CLR]":FORA-828TO9 
98: READB: POKEA, B: NEXT :rem 181 


30 


40 


50 


60 


70 


86 


100 


128 


140 


160 


180 


200 
210 


220 


230 
240 


250 


260 
270 


280 


290 


300 
310 


320 


3402 
350 


360 


370 


500 


510 
520 
530 
546 
550 
560 
570 
580 


WK-4* ( PEEK ( 36866 )AND128 )+64* (PEEK(3686 
9)AND112) :rem 223 
CL=37888+4* ( PEEK ( 36866 )AND128)-WK 

:rem 220 
IFWK-7680THENFORA-1TO12:READB: READC: PO 
KEB,C:NEXT :rem 55 
DIMJ%(13,4) :DIMGS$ (20) :S1=36875:S2=S1+1 
:VLZS1-*3:D1-20:SC-0:HD-0 :rem 97 
G$(4)="{2 SPACES}*** POKER{2 SPACES}25 


6 ***(2 SPACES)" :rem 242 
G$(7)=" IT'S YOU AGAINST VIC" :rem 217 
G$(9)="{2 SPACES}YOU WIN AS FOLLOWS: 
{SPACE} ":G$(1Ø)="{3 SPACES} ROYAL FLUS 
H-$25Ø{2 SPACES)" :rem 175 

G$(11)=" STRAIGHT FLUSH-$199 

{2 SPACES}":G$(12)="{3 SPACES}4 OF A 
{SPACE}KIND-$29{4 SPACES)" :rem 185 
G$(13)="{4 SPACES}FULL HOUSE-$160 

{4 SPACES}":G$(14)="{7 SPACES]FLUSH-$ 
8{7 SPACES}" :гет 134 
G$(15)="{5 SPACES}STRAIGHT-$5 

{5 SPACES}":G$(16)="{4 SPACES}3 OF A 
{SPACE}KIND-$4{4 SPACES}" :rem 184 
G$(17)="{6 SPACES}2 PAIR-$3{7 SPACES} 
":G$(18)2"Í2 SPACES}PAIR, JACKS & UP- 
ӘЛЕГІ ігеп 17 
G$(28)="{2 SPACES}EACH HAND COSTS $1. 
":м5-"(номЕ)(22 DOWN)" :rem 34 
BS=LEFTS$ (N$, 20) :JWS=LEFTS (N$, 19) 

:rem 177 
A=4:MM=220:G=598: PRINT" {BLK}": POKEVL, 1 
5:р1=0 :rem 98 
FORB=1T022: PRINTLEFTS (N$,A) RIGHTS (G$ ( 
A),B):POKES1,MM :гет 138 
FORC=1TOG:NEXT: POKES1, Ø : NEXT : FORB=1TO 
D1 :NEXT:IFA=2ØTHENPOKEVL , Ø: GOTO31Ø 

:rem 193 
IFA=18THENA=2Ø:MM=22Ø:PRINT"(WHT)":G= 
SØ:D1=15ØØ :гет 166 
IFA>8ANDA<18THENA=A+1 :гет 225 
IFA=7THENA=9: PRINT" {BLU}":G=49:D1=600 

:гет 145 
IFA=5 THENGOSUB59@@ : РОКА=1Т0600:МЕХТ:А 
=7:PRINT" {ИНТ }":ММ=238:6=40:01=600 

:геш 35 
IFA=4THENA=5: PRINT" (RED) ":ММ=226 

:rem 144 
GOTO230 :rem 97 
G$(4)2"":G$(5)2"":G$(7)2"":GS$ (19)z"": 
G$(2g)="" :гет 16 
AK$=" {DOWN} {GRN} {RVS} {DOWN} {LEFT} 
{DOWN} {LEFT} ":D$=B$+"(21 SPACES)" 

:rem 23 
ES=LEFTS (N$,15):F$=E$+"{21 SPACES}":X 
=RND(-TI) :rem 104 
HD=HD+1 : GOSUB493@: POKE36879, 31:PRINTC 
HRŞ (147) :SYS828 :rem 100 
PRINTLEFTS(N$,5)SPC(4)"{BLU}HIT {RVS} 
K{OFF} TO KEEP" :rem 3 
PRINTLEFTS(N$,7)SPC(3)"HIT {RVS}C 
{OFF} ТО CHANGE":GOSUB5050 :rem 227 
X=INT(RND(1)*13)+1:Y=INT(RND(1)*4)+1: 
ІҒ7%(Х,Ү)-1ТНЕМ500 :rem 122 
J%(X,Y)=1:K=K+1 :rem 10 
Е-32:ІЕҮ-ІТНЕМС-88:Н-0 :rem 32 
IFY=2THENG=83 :H=2 :rem 254 
IFY=3THENG=65 : H=Ø :rem 254 
IFY=4THENG=9Ø :H=2 :гет Ø 
ТЕХ=1@ТНЕМЕ=49:Е=48:СОТО620 :геп 114 
IFX>1ANDX< LØTHENF=X+48 :rem 91 
ТЕХ=11ТНЕМЕ=1@ :rem 54 


59@ 
600 
610 
620 
630 
640 
658 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
798 
800 
810 
820 
830 
840 
850 
860 


870 
880 


890 
9002 


916 
920 
930 
940 
950 


IFX=12THENF=17 :rem 63 
IFX=13THENF=11 :rem 50 
IFX-lTHENX-14:F-1 :rem 3 
IFK»5THENRETURN :rem 244 
ІЕХ=1ТНЕМХ=14:Е=1 :rem 5 


IFK=1THENCD=WK+199:PT(1)=X:ST(1)=G 
:rem 
IFK-2THENCD-WK-*203:PT(2)-X:ST(2)-G 
:rem 
IFK=3THENCD=WK+207:PT(3)=X:ST(3)=G 
:rem 
IFK=4THENCD=WK+211:PT(4)=X:ST(4)=G 
теш 30 
IFK=5 THENCD=WK+215:PT(5)=X:ST(5)=G:GO 
SUB700:POKEVL,5:2-2250:GOTO810 :геп 87 
с050В700:с60Т0500 :rem 190 
POKECD, 112: POKECD+CL, Ø: POKECD+1 , 64: PO 
KECD+1+CL, 9: POKECD+2, 110: POKECD+2+CL, 
@ :rem 197 
FORA=(CD+24)TO(CD+68)STEP22:POKEA, 93: 
POKEA+CL,Ø:NEXT :гет 149 
FORA=(CD+22)TO(CD+66)STEP22: POKEA, 93: 
POKEA+CL, @:NEXT :гет 146 
POKECD+88, 109: POKECD+88+CL, 8: POKECD+8 
9,64: POKECD+89+CL, 0: POKECD+9Ø, 125 
:гет 94 
POKECD+99+CL, 9:LF=1 :WB=230 :гет 218 
El-E:Fl-F:Gl-G:Hl-H:E-160:F-160:G-160 
:Н=@ :rem 33 
LF=LF+1:POKES1,WB:POKEVL,14 :геп 168 
POKECD+23, E: POKECD+23+CL, H: POKECD+45, 
Е: POKECD+45+CL,H:POKECD+67,G: POKECD+6 
7+CL,H srem 92 
ЕОВВ-1Т0100:МЕХТ:РОКЕУІ,0:РОКЕ51,0:ІЕ 
LF=ØTHENRETURN :rem 106 
IFLF=4THENLF=@ : E=E1 :G=G1 :H=H1 :F=F] : GO 
TO776 :rem 69 
H=H+3 : WB=WB+5 :GOTO76@ :rem 220 
POKE198,9:PRINTDS$: PRINTBS; : PRINTTAB(3 
)CHR$(28)"KEEP OR CHANGE?":CT=@ 


39 


28 


31 


:rem 104 
PRINTESSPC(2)CHR$(39)"2":POKES1,Z 

:rem 164 
FORA-1TO100:NEXT:PRINTES$SPC(2)" ":POK 
ES1,0:FORA-1TO50:NEXT :rem 85 
GETH$:1FH$-""THEN820 :rem 183 
ІЕНб5-"С"ОВН5-"К"ТНЕМ870 :rem 3 
сотов2@ :rem 113 
ІЕН5-"К"ТНЕМ900 :rem 46 
ІЕН$="С"ТНЕМСТ=СТ+1:6050В8500:РТ(1)=Х: 
ST(1)=G:E(1)=E:F(1)=F:G(1)=G:H(1)=H 

:rem 152 
PRINTJWS$SPC(2)AKS$ :rem 12 


PRINTESSPC(6)"2?2":FORA-1TO100:NEXT:PRI 
NTESSPC(6)" :FORA=1TO5@:NEXT :rem 46 
СЕТІЅ:ІРІ$=""ТНЕМ900 :rem 102 
ІРІ$="С"ОКІ$="К"ТНЕМ940 :rem 1 
с0Т0900 :rem 110 
ІЕІ$="К"ТНЕМ970 :rem 52 


СТ=СТ+1:6050В500:РТ(2)=Х:5Т(2)=6:Е(2) 


=E:F(2)=F:G(2)=G:H(2)=H :rem 174 

960 PRINTJWSSPC(6)AKS :rem 14 

970 PRINTESSPC(10)"?":FORA-1TO100:NEXT:PR 
INTESSPC(10)" ":FORA-1TO50:NEXT 

:rem 139 

980 GETJS$:IFJ$-""THEN970 :rem 118 

990 ІЕЈҘ$ = "С"ОВЈҘ="К"ТНЕМ1020 :rem 48 

1000 GOTO970 :rem 154 

1020 ІҒ25-"К"ТНЕМ1050 srem 129 


1030 CT-CT«-1:GOSUB520:PT(3)-2X:ST(3)-G:E(3 


)=E:F(3)=F:G(3)=G:H(3)=H :rem 218 
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1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


1160 
1170 


1180 
1500 
1514 
1520 
1536 
1540 


1550 
1560 


2000 
2010 
2020 


2110 


2120 


2130 
2160 
2170 
2180 
2196 
2200 
2210 
2220 
2230 
2240 
2250 


2260 


PRINTJWS$SPC(19)AK$:FORA-1TO1090:NEXT 


:ІЕСТ-3ТНЕМ1500 :rem 209 
PRINTESSPC(14)"2":FORA-1TO190:NEXT:P 
RINTESSPC(14)" ":FORA-1TO50:NEXT 
:rem 185 
GETK$:IFK$-""THEN1950 :rem 196 
ІЕК5-"К"ОВКф-"С"ТНЕМ1090 :rem 95 
GOTO1050 :rem 200 
ІЕК5-"К"ТНЕМ1120 :rem 135 
CT=CT+1:GOSUB5@@: PT(4)=X:ST(4)=G:E(4 
)=E:F(4)=F:G(4)=G:H(4)=H :гет 222 
PRINTJWSSPC(14)AKS$:IFCT-3THEN15060 
:rem 38 
PRINTESSPC(18)"2":FORA-1TO109:NEXT:P 
КІМТЕ55РС(18)" ":FORA-1TO50:NEXT 
:rem 191 
GETLS$:IFL$-""THEN1120 :rem 194 
IFL$Z"C"ORL$-"K"THEN1160 :rem 93 
GOTO1126 :rem 196 
ІЕІ5-"К"ТНЕМ1500 :rem 136 


CT=CT+1 : GOSUB5@@: CD=WK+215:PT(5)=X:S 
T(5)=G:E(5)=E:F(5)=F:G(5)=G:H(5)=H 


srem 78 
PRINTIWSSPC(18)AK$ :rem 108 
ҒОКТУ-1Т05:ІЕТУ>5ТНЕМ1560 srem 126 
IFE(TV)»OTHEN1530 :rem 252 
NEXTTV: LFTV=5THEN1569 :rem 145 
E-E(TV):F-F(TV):G-G(TV):H-H(TV) 
:rem 139 
CD=WK+195+TV*4: IFCD>WK+215THEN1 560 
srem 27 
GOSUB7ØØ: IFTV<S5THENNEXTTV :rem 222 
FORA-1TO5:E(A)z0:F(A)-0:G(A)20:H(A)- 
0:МЕХТА :rem 242 
PRINTDSFS : FORA=1T05: POKE(1915+A) , PT ( 
А):МЕХТ :rem 145 
FORA-1TO5:POKE(1015-A),PT(A):NEXT 
:rem 249 
SYS908:FORA-1TO5:PT(A)-PEEK((1015-A) 
):NEXT :rem 44 


IFPT(5)-PT(A4)-1THENIFPT(4)-PT(3)-1TH 
ENIFPT(3)-PT(2)-1THENIFPT(2)-PT(1)-1 
THENSS-1 :rem 124 
IFST(1)=ST(2)THENIFST(2)=ST(3)THENIF 
5Т(3)-5Т(4)ТНЕМІЕЗТ(4)-5Т(5)ТНЕМЕІ-1 


:rem 9 
5Ү5960:ХЕ-РЕЕК(1011):270-РЕЕК(1012) 
:rem 13 
ІЕРТ(1)-РТ(2)ТНЕМІЕРТ(1)-РТ(3)ТНЕМІҒ 
РТ(1)-РТ(4)ТНЕМЕЕ-1 :rem 170 
IFPT(5)-PT(A4)THENIFPT(5)-PT(3)THENIF 
РТ(5)-РТ(2)ТНЕМЕК-1 :rem 183 
IFSS=1THENIFFL=1THENIFPT(5)=14THENSC 
=SC+249:ZS=G$ (10) :GOTO3 938 :rem 99 
IFSS=1THENIFFL=1THENSC=SC+99: ZS$=G$ (4 
) :GOTO3 938 :rem 128 
IFFR=1THENSC=SC+19:ZS$=G$ (12) :GOTO3@3 
0 :rem 211 
IFZQ=4THENIFFR<>1THENSC=SC+9 : Z$=G$ (1 
3):G0T03039 :rem 187 
IFFL-l1THENSC-SC-47:2$-G$(14):G0TO3030 
:rem 158 
IFSS=1THENSC=SC+4: Z$=G$ (15) :GOTO3836 
:rem 177 
IFZQ=3THENSC=SC+3 : Z$=G$ (16) :GOTO38398 
:rem 185 
IFZQ=2THENSC=SC+2 : Z$=G$ (17) :GOTO3838 
:гет 185 
IFZQ=1ANDXE>=11THENZ$=G$ (18) :GOTO393 
9 :rem 7 
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2270 5С-5С-1:75-"(6 SPACES}LOUSY HAND! 


(5 SPACES}":QP=1 :rem 236 


3030 GOSUB5959: PRINTCHR$ (156) : IFQP=1THENP 


RINTCHR$ (144) :гет 68 


3040 FORA-1TO5:PRINTB$;Z$:UA-20:FORB-135T 


O243STEP12 :rem 158 


3050 IFQP-ITHENFORB-243TO135STEP-12:UA-32 


:rem 14 


3060 POKEVL,15:POKESl,B:POKES2, B: FORC-1TO 


UA:NEXT:NEXT :rem 224 


3070 POKEVL,0:POKES1,0:POKES2,0:PRINTDS$:F 


ORD-1TO190:NEXT:NEXT :rem 178 


3080 FORX-1TO13:FORY-1TO4:J$(X,Y)-U:NEXT: 


NEXT: K=Ø :rem 102 


3090 FORA-1TO5:PT(A)-9:ST(A)z9:NEXT:SS-0: 


FL-0:20-0:FR-0:K-0:XE-0:0P-Ü  :rem 5 


3100 FORA-1TO1590:NEXT:GOTO350 :rem 71 
4030 POKE36879,120:PRINT"(CLR]"LEFT$(NS$,1 


1)SPC(8)"{BLK}{RVS}HAND";HD  :rem 59 


4040 D-231:POKEVL,15:FORA-1TO3:FORB-120TO 


127: POKE36879,B:POKES1,D :rem 215 


4050 POKES2,D:FORC=1T04@:NEXT:D=D+1:NEXT: 


NEXT: POKES1,9:POKES2,@:RETURN: rem 57 


5000 FORA-1TO3:FORB-2900TO207:POKE36879,B: 


FORC=1T05@: NEXT : NEXT : NEXT: POKE36879, 
200:RETURN :rem 30 


5050 PRINTLEFTS(N$,3)SPC(4)CHR$(28)CHR$(1 


8) "WINNINGS: CHR$(146)"S$";SC;" 
(2 SPACES] ": RETURN :rem 84 


6000 DATA160,5,162,22,169,160,157,255,15, 


1577227 LIA USO, 208018730 US а БОЕ, 
7,255,147 :rem 188 


6010 DATA157,227,149, 202,208, 232,160,5,16 


2,220,169,160,157,22,16,157,43,16,15 
1718 ИШЛЕБ! гет 245 


6020 DATA29,17,136,208,3,32,131,3,152,157 


,22,148,157,43,148,157,8,149,157,29, 
149,32,134 :rem 254 


6030 DATA3,298,218,96,168,7,96,138,56, 233 


,22,170,96,162 :rem 216 


6040 DATA4,142,246,3,174,246,3,160,0,140, 


DAT Sif LSS AAAS SAL 2483) 76, Ol he 
185,248 :гет 98 


6Ø5Ø DATA3,153,249,3,104,153,248,3,169,1, 


141,247,3,200,202,208,228,173,247,3, 
240,5,206 :rem 171 


6060 DATA246,3,208,210,96,162 :rem 198 
6070 DATA 0,142,245,3,172,245,3,185,248,3 


,217,249,3,208,4,232,141,243,3,200,1 
92,4,208 :rem 74 


6080 DATA242,238,245,3,173,245,3,201,4,20 


8,226,142,244,3,96 :rem 138 


6090 DATA836,29,839,31,849,149,852,151,86 


4,30,867,30,870,31,873,31,883,150,88 
6,150,889 :rem 26 


6100 DATA151,892,151 :rem 10 
Program 2: Poker—64 Version 


20 


39 
40 
66 


65 
76 


89 


РОКЕ53281,1:РОКЕ53280,14 :PRINT"{CLR}" 
: FORA-908TO998: READB: POKEA, B: NEXT 


:rem 65 
WK=1924 ¿rem 9 
CL-54272 :rem 52 
DIMJ%(13,4) :DIMGS$ (20) : WA=CL+4:VL=CL+24 
:D1=0:SC=0:HD=0 :гет 184 


FOR T=CLTOCL+24:POKET,%:NEXT  :rem 199 
G$(4)2"(10 SPACES}*** POKER{2 SPACES}2 


56 ***[2: SPACES)" :rem 242 
G$(5)2"(7 SPACES)IT'S YOU AGAINST THE 
{SPACE}64" :rem 64 


100 


120 


140 


G$(9)="{10 SPACES}YOU WIN AS FOLLOWS: 
":G$(1@)="{1l SPACES}ROYAL FLUSH-$259 
Ы :rem 175 
G$(11)="{9 SPACES}STRAIGHT ҒІЛ/5Н-5100 
":6$(12)="{11 SPACES}4 OF A KIND-$2Ø" 

:rem 185 
G$(13)2"(12 SPACES}FULL HOUSE-$10 
(2 SPACES}":G$(14)="{15 SPACES]FLUSH- 
SEN :rem 134 
G$(15)="{13 SPACES)]STRAIGHT-$5":G$(16 
)="{12 SPACES]3 OF A KIND-$4":rem 184 
G$(17)="{14 SPACES}2 PAIR-$3":G$(18)- 
"(9 SPACES}PAIR, JACKS & UP-$1" 

srem 17 
G$(28)="{18 SPACES}EACH HAND COSTS $1 
-":NS="{HOME}{26 DOWN)" :rem 102 
B$-LEFT$ (N$, 20) : JWS=LEFTS (N$, 19) 

:rem 177 
A=4:MM=69:G=19: PRINT" {ВІК} ":01=0:РОКЕ 
CL, ММ: POKECL+1 , MM: POKECL+4,17 :rem 86 


FORB=1TO4Ø: PRINTLEFTS (N$,A) RIGHTS (G$( 
A),B) :rem 215 
IFLEFTS (RIGHTS (GS$(A),B),2)=" 

(2 SPACES} "THEN249 :rem 202 


POKEVL, 9: POKECL+5,17:POKECL+6,129:POK 
EVL, ø :rem 68 
NEXT: FOR I=1TOG:NEXT:FORB=1TOD1:NEXT: 
IFA=2ØTHENPOKECL+4,16:GOTO31Ø :rem 1 
IFA=18THENA=2Ø:MM=9Ø:PRINT"(RED)":G=3 
Ø:D1=3ØØ:GOTO 300 :геп 99 
IFA>8ANDA<18THENA=A+1 :rem 225 
IFA=7THENA=9: PRINT" {ВІО} ":0=40:01=209 
:rem 141 
IFA-5THENGOSUB5009:FORA-1TO200:NEXT:A 
=9:PRINT"{BLU}":G=49:D1=209  :rem 137 
IFA=4THENA=5 : PRINT" {RED }" :MM=9ø 


теш 95 
GOTO230 srem 97 
G$(4)="":G$(5)="":G$(7)="":G$(1Ø)="":; 


G$(28)="" :rem 16 
АК$="{2 DOWN}{GRN}{2 LEFT}{RVS} 

{2 SPACES}{DOWN}{LEFT}{RVS}{2 SPACES} 
{DOWN} {LEFT}{RVS}{2 SPACES}":DS=BS+" 
(40 SPACES)" :rem 134 
ES=LEFTS(N$,16):FS=E$+"{21 SPACES]":X 


=RND(-TI) :гет 105 
HD=HD+1 : GOSUB4®@38: POKE53281,1 :PRINTC 
HR$(147):GOSUB 5100 :гет 200 


PRINTLEFTS(NS$,5)SPC(13)"{BLU}HIT 
{RVS}K{OFF} TO KEEP" :гет 51 
PRINTLEFT$(N$,7)SPC(12)"HIT {RVS}C 
{OFF} ТО CHANGE" :GOSUB5Ø5Ø :rem 19 
X=INT(RND(1)*13)+1:Y=INT(RND(1)*4)+1: 


IFJ$(X,Y)-1THEN509 :rem 122 
J%(X,Y)=1:K=K+1 :rem 10 
E=32 : [FY=1THENG=88 :H=Ø :геп 32 
IFY-2THENG-83:H-2 :rem 254 
IFY-3THENG-65:H-0 :rem 254 
IFY-ATHENG-90:H-2 :rem @ 
IFX-l10THENE-48:F-49:GOTO620  :rem 114 
ІРХ>1АМрХ<10ТНЕМЕ-Х-48 :rem 91 
ІҒХ-11ТНЕМЕ-10 :rem 54 
IFX=12THENF=17 :rem 63 
IFX=13THENF=11 :rem 50 
IFX=1THENX=14:F=1 :гет 3 
IFK> 5THENRETURN :геп 244 
IFX=1THENX=14:F=1 srem 5 


IFK=1 THENCD=WK+397 :L=1:PT(1)=X:ST(1)= 


G :rem 21 
IFK=2THENCD=WK+4@5 :L=9: PT(2)=X:ST(2)= 
G srem 23 


660 


670 


675 


IFK=3 THENCD=WK+413 :L=17:PT(3)=X:ST(3) 


=G :rem 73 
IFK=4THENCD=WK+421 :L=25:PT(4)=X:ST(4) 
=G srem 75 
POKE CL+1,15 :гет 78 


680 IFK=5THENCD=WK+429:L=33:PT(5)=X:ST(5) 
=G : GOSUB79% : POKEVL, 15: 2Z=258:GOTO819 
:rem 184 
690 GOSUB702:GOTO500 :rem 190 
700 PRINT" {HOME} {10 DOWN)"; :rem 96 
701 PRINT TAB(L)"(BLK)EKA3****Eks3" 
:rem 203 
703 PRINTTAB(L)"-{4 SPACES]-" :rem 153 
704 PRINTTAB(L)"-(4 SPACES]-" :rem 154 
705 PRINTTAB(L) "-(4 SPACESJ-" :rem 155 
706 PRINTTAB(L)"KZ3****E&X3" 2 :гет 76 
740 LF=1:WB=55 :rem 21 
750 El=E:Fl=F:G1=G:Hl=H:E=16Ø:F=16Ø:G=16Ø 
:Н=0 :rem 33 
760 POKE VL,8:LF=LF+1:POKECL+1,WB: POKECL, 
WB: POKECL+4,17 :rem 138 
770 POKE CD+46,E:POKE CD+46+CL,H: POKECD+4 
5, F:POKECD+45+CL,H :rem 181 
775 POKE CD+86,G:POKECD+86+CL,H: POKECD+87 
,G:POKE CD+87+CL,H :rem 209 
777 IF F<> 49 THENPOKE CD+128,F:POKECD+CL 
%128,Н zrem 98 
778 IF F<> 49 THEN POKE CD+127,E:POKE CD+ 
CL+127,H:GOTO780 :rem 114 
779 F=49:POKE CD+127,F:POKECD+127+CL,H: PO 
KE CD+128,48:POKE CD+128+CL,H:rem 211 
780 FORB=1T010@:NEXT: POKECL+4, 16: 1FLF=0TH 
ENRETURN :rem 164 
790 IFLF=4THENLF=@:E=E1:G=Gl:H=H1:F=F1:GO 
Т0770 :rem 69 
800 H=H+8:WB=WB+5 :GOTO760 :rem 225 
810 POKE198,0:PRINTD$:PRINTB$; :PRINTTAB(1 
3)CHR$(28)"KEEP OR СНАМСЕ?":СТ=0 
:rem 153 
820 PRINTESSPC(4)CHR$(39)"2":POKECL*1,2:P 
OKECL,Z :rem 139 
830 FORA-1TO109:NEXT:PRINTESSPC(4)" ":POK 
ECL-4,16:FORA-1TO50:NEXT :rem 248 
840 СЕТН5:ІРН5-""ТНЕМ820 :rem 193 
850 IFHSZ'"C"ORHS-"K'THEN870 :rem 3 
860 GOTO820 :rem 113 
870 ІЕН5-"К"ТНЕМ900 :rem 46 
880 ІРН5-"С"ТНЕМСТ-СТ-1:6050В500:РТ(1)-Х: 
ST(1)=G:E(1)=E:F(1)=F:G(1)=G:H(1)=H 
:rem 152 
890 PRINTJWS$SPC(4)AKS$ :rem 14 
900 PRINTESSPC(12)"?":FORA=1TO160:NEXT: PR 
ІМТЕ55РС(12)" ":FORA-1TO59:NEXT 
ігеп 136 
910 СЕТІ5:ІРІ5-""ТНЕМ900 :rem 102 
920 ІҒІ5-"С"ОКІ5-"К"ТНЕМ940 :гет 1 
930 с0Т0900 :rem 110 
940 ІБІ5-"К"ТНЕМ970 :rem 52 
950 CT-CT«-1:GOSUB500:PT(2)-X:ST(2)-G:E(2) 
=E:F(2)=F:G(2)=G:H(2)=H :гет 174 
960 PRINTJWS$SPC(12)AK$ :rem 59 
970 PRINTESSPC(20)"?":FORA-1TO100:NEXT:PR 
INTESSPC(20)" ":iFORA-1TO50:NEXT 
:rem 141 
980 СЕТ75:ІЕ75-""ТНЕМ970 :rem 118 
990 IFJ$-"C"ORJS$-"K"THEN1020 :rem 48 
1000 GOTO970 :rem 154 
1020 IFJ$-"K'"THEN1050 :rem 129 


1030 CT=CT+1:GOSUB59@: PT(3)=X:ST(3)=G:E(3 


)=E:F(3)=F:G(3)=G:H(3)=H :rem 218 
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1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


1160 
1170 


1180 
1500 
1510 
1520 
1530 
1540 


1550 
1560 


2000 
2010 
2020 
2110 
2115 
2120 


2130 
2160 
2176 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 


2260 


PRINTJWSSPC(29)AKS$:FORA-1TO1000:NEXT 
:IFCT-3THEN1590 :rem 210 
PRINTESSPC(28) "2":FORA-1TO100:NEXT:P 
RINTESSPC(28)" ":FORA-1TO50:NEXT 


:rem 195 
СЕТК5:ІЕК5-""ТНЕМ1050 :rem 196 
ІЕК5-"К"ОВКӛ-"С"ТНЕМ1090 :гет 95 
GOTO1956 :rem 200 
ІЕК5-"К"ТНЕМ1120 :rem 135 


CT=CT+1:GOSUB5@@: PT(4)=X:ST(4)=G:E(4 

)=E:F(4)=F:G(4)=G:H(4)=H :rem 222 

PRINTJWSSPC(28)AKS:IFCT-3THEN1500 
:rem 43 


PRINTESSPC(36)"2":FORA-1TO1900:NEXT:P 


RINTESSPC(36)" ":FORA-1TO50:NEXT 
:rem 191 
GETL$ : IFL$=""THEN112Ø :rem 194 
IFL$="C"ORLS$="K"THEN116Ø :rem 93 
60701120 :rem 196 
IFL$Z"K'THEN1590 :rem 136 


CT-CT-«1:GOSUB500:CD-WK*215:PT(5)-X:S 
T(5)=G:E(5)=E:F(5)=F:G(5)=G:H(5)=H 


:rem 78 
PRINTJIWS$SPC(36)AKS$ :rem 108 
ҒОКТУ-1Т05:ІЕТУ>5ТНЕМ1560 :rem 126 
IFE(TV)»OTHEN15390 гет 252 
МЕХТТУ:ІЕТУ-5ТНЕМ1560 :rem 145 


E-E(TV):F-F(TV):G-G(TV):H-H(TV) 


:rem 139 
CD-WK-389-TV*8:1FCD»WK-429THEN1560 

:rem 43 

GOSUB740:1FTV«5THENNEXTTV :rem 226 


FORA-1TO5:E(A)-9:F(A)-9:G(A)-20:H(A)- 
Ø:NEXTA :rem 242 
РЕТМТО$Е$:ЕОВА=1ТО5:РОКЕ(1@15+А),РТ( 
А):МЕХТ :rem 145 
ЕОВА=1ТО5:РОКЕ(1@15+А),РТ(А):МЕХТ 


:rem 249 
SYS908:FORA-1TO5:PT(A)-PEEK((1915-A) 
):NEXT :rem 44 


YY-0:IFPT(5)-PT(4)-1THENIFPT(4)-PT(3 
)=1THENYY=1 :геп 147 
IFYY-1THENIFPT(3)-PT(2)-1THENIFPT(2) 
-РТ(1)-ІТНЕМ55-1 :rem 9 
IFST(1)=ST(2)THENIFST(2)=ST(3)THENIF 
ST(3)=ST(4)THENIFST(4)=ST(5)THENFL=1 
:rem 9 
5Ү5960:ХЕ-РЕЕК(1011):70-РЕЕК(1012) 
:rem 13 
ІЕРТ(1)-РТ(2)ТНЕМІЕРТ(1)-РТ(3)ТНЕМІЕ 
PT(1)=PT(4)THENFR=1 :rem 170 
ІЕРТ(5)-РТ(4)ТНЕМІЕРТ(5)-РТ(3)ТНЕМІЕ 
PT(5)=PT(2)THENFR=1 :гет 183 
IFSS-l1THENIFFL-l1THENIFPT(5)-14THENSC 
=SC+249:ZS=G$ (18) :GOTO3030 :rem 99 
IFSS=1 THENIFFL=1THENSC=SC+99:ZS=G$ (4 
):с0Т03030 :rem 128 
1ТЕЕВ=1ТНЕМ5С=5С+19:2$=С6$(12):СОТО3@3 
2 srem 211 
IFZQ=4THENIFFR<>1THENSC=SC+9 : Z$=G$ (1 
3):G0TO3030 :rem 187 
IFFL-l1THENSC-SC-*7:2$-2G$(14):G0TO3030 
:rem 158 
IFSS-lTHENSC-SC-«4:2$-6$(15):GOTO39030 
:rem 177 
IFZQ-3THENSC-SC-«3:2$-6G$(16):GOTO3039 
:rem 185 
IFZQ=2THENSC=SC+2 : Z$=G$ (17) : GOTO3 838 


:гет 185 
IFZQ=1ANDXE>=1 DTHENZ$=G$ (18) : GOTO303 
Ø 


srem 7 
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2270 
3030 
3040 
3050 
3060 
3070 
3080 
3090 


3100 
4030 


“4040 


4050 


5000 


5010 
5050 


5060 
5100 
5110 
5120 
5130 
5140 
6040 


6045 
6050 


6055 
6060 
6070 


6075 
60890 


6090 


610й 


5С-5С-1:75-"(14 SPACES}LOUSY HAND! ! 
(4 SPACES }":QP=1 :гет 13 
GOSUB5Ø5Ø: PRINTCHRS (156) : IFQP=1THENP 
RINTCHRS (144) :гет 68 
FORA-1TO5:PRINTB$;Z$:UA-290:FORB-135T 
02435ТЕР12 srem 158 
IFQP=1 THENFORB=243T0135STEP-12:UA=32 
:rem 14 
POKECL+4, 17: POKECL+1,B: POKECL, B: FORC 
=1TOUA:NEXT:NEXT srem 159 
POKECL-*4,16:PRINTD$:FORD-1TO109:NEXT 
:МЕХТ :гет 162 
FORX-1TO13:FORY-1TO4:J$ (X,Y)-0:NEXT: 
NEXT: K=Ø :гет 1Ø2 
FORA-1TO5:PT(A)-0:ST(A)-0:NEXT:SS-0: 
Е1=0:70=0:ҒЕК=0:К=0:ХЕ=0:0Рр=0  :rem 5 
FORA-1TO1500:NEXT:GOTO350 :rem 71 
POKE53281,1:PRINT"(CLR)"LEFT$ (N$,11) 
SPC(16)"{BLK}{RVS}HAND";HD :rem 250 
D=231 : FORA=1T03: FORB=@0TO15 : POKE53289 
‚В: POKECL+1,D: POKECL+21,D :rem 241 
FORC=1T049 : NEXT: NEXT: NEXT: POKE5328Ø, 
12:RETURN :rem 231 
FORA=1T03:FORB=@ ТО 15 :РОКЕ53280,В: 
FORC=1T059:NEXT: NEXT: NEXT: POKE5328@, 
14 :rem 36 
RETURN :rem 166 
PRINTLEFTS$(N$,3)SPC(13)CHR$(28)CHR$( 
18) "WINNINGS: "CHRS(146)"$";SC;" 
{2 SPACES}" :гет 106 
RETURN :rem 171 
Z=1:FOR Т-1024 ТО 1063:РОКЕТ%54272,Т 
-1023:РОКЕТ,160:МЕХТ Т :rem 32 
FOR Т-1024 ТО 2024-40 STEP 40:7-2-1: 
РОКЕТ+54272,7:РОКЕТ,160 :rem 27 
РОКЕТ+54311,7:РОКЕТ+39,160:МЕХТТ 
:rem 222 
FORT=1984 TO 2023:РОКЕТ+54272,Т-1984 
:РОКЕТ,160:МЕХТ Т :rem 61 
RETURN :rem 170 
DATA162,4,142,246,3,174,246,3,1690,0, 
140,247,3,185,249,3,217,248,3,176 
:гет 107 
DATA 16,72,185,248 :rem 121 
DATA3,153,249,3,104,153,248,3,169,1, 
141,247,3,200,202,208,228,173 


:гет 156 
DATA 247,3,240,5,206,246 :rem 149 
рАТАЗ,208,210,96 srem 57 


рАТА162,0,142,245,3,172,245,3,185,24 
8,3,217,249,3,208,4,232,141,243 

:rem 4 
БАТА 3,200,192,4,208 :rem 203 
DATA242, 238, 245,3,173,245,3,201,4, 20 
8,226,142,244,3,96 :rem 138 
DATA836, 29,839, 31,849,149,852,151, 86 
4,309,867, 39,879, 31,873, 31,883,159, 88 
6 :rem 131 
DATA 150,889,151,892,151 :гет 161 


BEFORE TYPING... 


Before typing in programs, please refer to “How 
To Type COMPUTEY's Gazette Programs,” “А 
Beginner’s Guide To Typing In Programs,” and 


m 


e Automatic Proofreader" that appear before 


the Program Listings. 


MLX For VIC And 64 
(Article on page 145.) Best Sellers From 
BEFORE TYPING... COMPUTE! Books 


Before typing in programs, please refer to “How 
To Туре COMPUTE!s Gazette Programs,” “А 


Beginner's Guide To Typing In Programs," and 
a he Automatic Proofreader’ that appear before Commodore 64 


the Program Listings. ө COMPUTE! First Book Of Commodore 64 
е Ail About The Commodore 64: Volume I 
Prog ram 1: MLX—64 Version e All About The Commodore 64: Volume II 
100 PRINT" {CLR} {CYN}";CHR$(142);CHRS(8);: e The VIC And Commodore 64 Tool Kit: 
POKE53281, 1: POKE53280, 1 :rem 73 BASIC 
101 РОКЕ 788,52:REM DISABLE RUN/STOP ө The VIC And Commodore 64 Tool Kit: 
E { T j :rem 5 The Kernal 
PRINT" {RVS} {40 SPACES)"; :гет 1 3 
120 PRINT"ÍRVS)Í15 SPACES} {RIGHT} {OFF} * Mapping The Commodore 64 
E*3£(RVS) {RIGHT} {RIGHT} {2 SPACES} ө Programming The Commodore 64 
ee SUE Je(Rvs} iren 259 | © ML Routines For The Commodore 64 
130 PRINT" {RVS}{15 SPACES}{RIGHT} EG3 © COMPUTE!S First Book Of Commodore 64 
{RIGHT} {2 RIGHT) (oFF)£(RVS)£E*3 Sound & Graphics 
{OFF} Ę*] {RVS} (13 SPACEST"; :rem 35 | ө COMPUTE!'s Reference Guide То 
140 PRINT"(RVS])(49 SPACES)" Go Commodore 64 Graphics 
200 PRINT"(2 DOWN}{PUR}{BLK}{3 SPACES}A F 
AILS d MACH Lud рк i EDITOR е COMPUTE!' First Book Of Commodore 64 
{5 DOWN}" :гет 13@ Games 
210 PRINT"K54(2 UP}STARTING ADDRESS? e Commodore 64 Games For Kids 
(8 SPACES)(9 LEFT)"; :rem 143 


215 INPUTS:F-1-F:C$-CHR$(314119*F:rem 125 | 9 Creating Arcade Games On The 

Commodore 64 

220 IFS«2560R(S»40960ANDS«49152)0RS» 53247 
THENGOSUB 3ØØØ : GOTO219 :rem 235 

225 PRINT:PRINT:PRINT :rem 180 VIC-20 

230 PRINT"E53(2 UP}ENDING ADDRESS? 


{8 ЅРАСЕЅ) {9 LEFT}";:INPUTE:F=1-F:cs= | 9 СОМРЦИТЕ!5 First Book Of VIC 
CHR$ (31+119*F) :rem 20 | € COMPUTE''s Second Book Of VIC 
240 IFE«2560R(E»40960ANDE«49152)0RE»53247 | @ COMPUTE!s Third Book Of VIC 
THENGOSUB39948 : GOTO239 :rem 183 г. 
250 IFE<STHENPRINTCS;"{RVS}ENDING < START | 9 Things То Do Іп АК Or Less 
{2 SPACES]":GOSUB1009:GOTO 230 e Mapping The VIC 
:rem 176 5 
260 PRINT: PRINT: PRINT :rem 179 | 2 Programming Тһе VIC-20 
300 PRINT"(CLR)";CHR$ (14) :AD=S: POKEV+21,Ø | € The VIC And Commodore 64 Tool Kit: 


:rem 225 BASIC 
310 PRINTRIGHTS ("@909"+MID$(STRS(AD),2),5 | e Т 
J; "2"; sFORJ=1T06 25257220 тас Ме Апа Commodore 64 Tool Kit: Тһе 
320 GOSUB579: IFN=-1THENJ=J+N: GOTO32Ø 
:rem 228 | € COMPUTE!’ First Book Of VIC Games 
390 ТЕМ=-211ТНЕМ 710 :rem 62 


е МІС Games For Kids 
400 ТЕМ=-204ТНЕМ 790 :rem 64 т 
410 IFN=-2Q6THENPRINT: INPUT" {DOWN}ENTER N | 9 Creating Arcade Games On The VIC 
EW ADDRESS"; ZZ :rem 44 


415 IFN--206THENIFZZ«SORZZ»ETHENPRINT" } 
{RVS}OUT OF RANGE":GOSUBlIØØØ:GOTO41Ø | Ask about these titles at your local bookstore 


:rem 225 

417 IFN--206THENAD-ZZ:PRINT:GOTO319 or computer store. Or call 1-800-334-0868 
:rem 238 | for information about ordering. 

420 IF N«»-196 THEN 480 :rem 133 


430 PRINT: INPUT"DISPLAY:FROM";F:PRINT, "TO 


DB 8 234 å | 1 
440 ЕЕЕ E COMPUTE! Publications,Inc. 


сы Опе of the АВС Publishing Companies 
T";S;" {LEFT}, NOT MORE THAN";E:GOTO43 
0 :rem 159 Р.О. Box 5406 Greensboro, МС 27403 
450 FORI=FTOTSTEP6 : PRINT: PRINTRIGHTS ("999 
O"+MIDS(STRS(I),2),5)7"2"3 :rem 30 
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451 
46@ 
47@ 
480 
490 
500 
510 


515 
520 


530 
540 


550 
560 
570 
580 
581 
585 
590 
600 
610 
620 
639 
640 
650 
660 
670 
680 
6902 


691 
695 


700 
718 


720 
730 


740 
750 
760 
762 
763 
765 
766 
770 


775 
780 


781 


798 


FORK=9TO5 : N=PEEK(I+K) : PRINTRIGHTS ("009 
"4+MIDS(STRS(N),2),3)7","7 :rem 66 
GETAS : IFA$>""THENPRINT: PRINT: GOTO319 

srem 25 
NEXTK: PRINTCHRS (29) ; :NEXTI: PRINT: PRIN 


T:GOTO319 :rem 56 
IFN<Ø THEN PRINT:GOTO319 :rem 168 
A(J)ZN:NEXTJ :rem 199 


CKSUM-AD-INT(AD/256)*256:FORI-1TO6:CK 
SUM=(CKSUM+A(I))AND255:NEXT  :rem 200 
PRINTCHR$(18);:GOSUB570:PRINTCHR$ (22) 

:rem 234 
IFN=CKSUMTHEN5 39 :rem 255 
PRINT: PRINT"LINE ENTERED WRONG RE-E 
NTER":PRINT:GOSUB1000:GOTO318:rem 176 
GOSUB2ØØØ :rem 218 
FORI=1T06: POKEAD+I-1,A(1) :NEXT: POKE54 


272,08: POKE54273,9 :rem 227 
AD=AD+6:IF AD<E THEN 310 :rem 212 
GOTO 719 srem 198 
N-0:2-0 :rem 88 
PRINT"K-43"; :rem 79 

GETA$:IFAS-""THEN581 :rem 95 


PRINTCHR$ (20); :A=ASC (A$ ) : IFA=130RA=44 


ORA=32THEN67 :rem 229 
IFA>128THENN=-A: RETURN :rem 137 
IFA«»20 THEN 630 :rem 10 


GOSUB699: IFI=1ANDT=44THENN=-1: PRINT" 


{LEFT} (LEFT]";:GOTO690 :rem 172 
GOTO579 :rem 109 
IFA«480RA»57THEN589 :rem 105 
PRINTA$; :N-N*10-A-48 :rem 106 


IFN»255 THEN A-20:GOSUB1009:GOTO600 


:rem 229 
Z-Ztl1:1FZ«3THEN580 :rem 71 
IFZ-ÜTHENGOSUB190900:GOTO570 :rem 114 
PRINT",";:RETURN :rem 240 


5%=РЕЕК(209)+256*РЕЕК(210)+РЕЕК(211) 
:гет 149 

FORI-1TO3:T-PEEK(S$-I) :rem 67 

IFT«»44ANDT«»58THENPOKES$-I,32:NEXT 


:rem 205 

PRINTLEFT$("(3 LEFT]",I-1);:RETURN 
:rem 7 
PRINT" {CLR} {RVS}*** SAVE ***(3 DOWN)" 
Er :rem 236 
INPUT" { DOWN} FILENAME";F$ :гет 228 


PRINT:PRINT"(2 DOWN}{RVS}T{OFF}APE OR 
{RVS}D{OFF}ISK: (T/D)" ^ :rem 228 
GETAS$:IFA$«»"T"ANDA$S«»"D"THEN749 

:rem 36 

DV=1-7* (AS="D") : IFDV=8THENFS="@:"+FS$ 
:rem 158 

TS=FS : ZK=PEEK(53)+256*PEEK(54)-LEN(TS 
):РОКЕ782,2К/256 :rem 3 
POKE781,ZK-PEEK(782)*256:POKE789, LEN( 
T$):SYS65469 :rem 109 
POKE78@,1:POKE781, DV: POKE782, 1:SYS654 
66 srem 69 
POKE254,S/256: POKE253,S—-PEEK( 254) *256 
3 POKE789, 253 :rem 12 
POKE782, E/256:POKE781, E-PEEK( 782) *256 
:5Ү565496 :rem 124 
IF(PEEK(783)AND1)OR(ST АМр191)ТНЕМ780 


ігеп 111 
PRINT" { DOWN} DONE. " : END :rem 106 
PRINT" {DOWN}ERROR ON SAVE.{2 SPACES}T 
RY AGAIN." : IFDV=1THEN729 :гет 171 


OPEN15,8,15:INPUT£15,El$,E2$:PRINTEl$ 
;E2$:CLOSE15:GOTO720 :rem 103 
PRINT" {CLR}{RVS}*** LOAD ***(2 DOWN)" 
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800 
810 


820 
8302 
840 
841 
845 


850 
860 


865 
870 


srem 212 
INPUT"{2 DOWN} FILENAME";F$ :геп 244 
PRINT: PRINT" {2 DOWN} {RVS}T{OFF}APE OR 
{RVS}D{OFF}ISK: (T/D)" ` :rem 227 
GETA$:iIFA$«»"T"ANDA$«»"D"THEN820 

:rem 34 

DV=1-7* (А$="р") : IFDV=8THENF$="6:"+F$ 
ігеп 157 
TS=FS$ : ZK=PEEK(53)+256*PEEK(54)-LEN(TS 
) : POKE782, ZK/ 256 :rem 2 
POKE781, ZK-PEEK( 782) * 256: POKE78Ø, LEN( 
TS) :SYS65469 ігеп 107 


РОКЕ780,1:РОКЕ781,рУ:РОКЕ782,1:5Ү5654 
66 srem 70 
РОКЕ780,0:5Ү565493 srem 11 


IF (PEEK(783)AND1)OR(ST AND191)THEN879 
srem 111 
PRINT" { DOWN} DONE. ":GOTO319 :rem 96 
PRINT" {DOWN}ERROR ON LOAD.{2 SPACES}T 
RY AGAIN. {DOWN} ": IFDV=1THEN880 т 
:rem 172 


880 OPEN15,8,15:INPUT£15,El1$,E2$:PRINTEl$ 
2Е29:СІ,05Е15:Сс0Т0800 :rem 102 
1000 КЕМ BUZZER :rem 135 
1001 POKE54296,15:POKE54277,45:POKE54278, 
165 :rem 207 

1002 POKE54276,33:POKE 54273,6:POKE54272, 
5 :rem 42 

1003 ЕОЕТ-1Т0200:МЕХТ:РОКЕ54276,32:РОКЕ54 
273,0:POKE54272, 0: RETURN :rem 202 

2000 REM BELL SOUND :rem 78 
2001 POKE54296,15:POKE54277,0:POKE54278,2 
47 srem 152 

2002 POKE 54276,17:POKE54273, 40: POKE54272 
‚@ :rem 86 

2003 ЕОВТ=1ТО1@@:МЕХТ:РОКЕ54276,16:ВЕТОВМ 
srem 57 

3000 PRINTCS$;"{RVS}NOT ZERO PAGE OR ROM": 


GOTO 1ØØØ :rem 89 


Program 2: MLX—VIC Version 


100 


101 


110 


120 


130 


140 


200 


210 


220 


225 
23@ 


24@ 


25@ 


26@ 
320 


PRINT" {CLR} (PUR)";CHR$(142);CHR$ (8); 


:rem 181 
POKE 788,194:REM DISABLE RUN/STOP 

:гет 174 
PRINT" {RVS}{14 SPACES)" srem 117 


PRINT" {RVS} {RIGHT}?{OFF}k*J£{RVS} 
{RIGHT} {RIGHT} {2 SPACES}&*3{OFF} 
E*3£(RVS)£(RVS) " :геш 191 
PRINT" {RVS} {RIGHT} KG3ÍRIGHT) 
{2 RIGHT} {OFF}£{RVS}£K*I {OFF} 
k*9{RVS} " y? x :rem 232 
PRINT"{RVS} (14 SPACES}" :rem 120 
PRINT"{2 DOWN}{PUR}{BLK}A FAILSAFE МА 
CHINE":PRINT"LANGUAGE EDITOR{5 DOWN)" 
:гет 141 
PRINT" {BLK} (3 UP}STARTING ADDRESS":IN 
PUTS:F-1-F:C$-CHR$(314119*F) :геп 97 
IFS«2560RS»32767THENGOSUB3909 : GOTO219 
:гет 2 
PRINT: PRINT: PRINT: PRINT :гет 123 
PRINT" {BLK} {3 UP}ENDING ADDRESS": INPU 
TE:F=1-F:C$=CHRS (31+119*F) :гет 158 
IFE< 2560RE> 3276 7THENGOSUB3999 : GOTO230 
:rem 234 
IFE<STHENPRINTCS$;"{RVS}ENDING < START 
{2 SPACES}":GOSUB1999:GOTO 230 


srem 176 
PRINT: PRINT: PRINT :гет 179 
PRINT" {CLR} ";CHR$ (14) :AD=S :rem 56 


310 
320 
398 
400 
410 


415 


417 


420 
430 


440 


450 


455 


457 


468 


470 


480 
490 
500 


510 


515 
520 


530 
540 
550 
560 
570 
580 
581 


585 


59@ 
602 
610 


620 
630 
640 
650 


660 
670 
680 
690 


692 
695 


700 
710 


720 


PRINTRIGHTS ("ØØØØ"+MID$ (STR$(AD),2),5 
):":"; :FORJ-1TO6 :rem 234 
GOSUB579 : IFN=-1THENJ=J+N: GOTO320 


:rem 228 
ІЕМ--211ТНЕМ 710 srem 62 
IFN--204THEN 790 :rem 64 


IFN=-206THENPRINT: INPUT" {DOWN} ENTER N 
EW ADDRESS"; ZZ rem 44 
IFN--206THENIFZZ«SORZZ»ETHENPRINT" 
{RVS}OUT OF RANGE" :605081000:60Т0410 


srem 225 
IFN--206 THENAD-ZZ: PRINT: GOTO319 

srem 238 
IF N<>-196 THEN 480 :rem 133 


PRINT: INPUT"DISPLAY:FROM";F:PRINT, "TO 
";:INPUTT ` TA :rem 234 
IFF<SORF>EORT<SORT>ETHENPRINT"AT LEAS 
T";S;"{LEFT}, NOT MORE THAN";E:GOTO43 
0 ігеп 159 
FORI=FTOTSTEP6: PRINT: PRINTRIGHTS ("000 
O@"+MIDS(STRS(I),2),5);"2"3 srem 30 
FORK=ØTO5 :М=РЕЕК(І+К) : IFK=3THENPRINTS 


PC(19); :rem 34 
PRINTRIGHTS ("@0"+MIDS$(STRS(N),2),3);" 
276 :rem 157 
GETA$:IFA$»""THENPRINT:PRINT:GOTO310 

:rem 25 


NEXTK: PRINTCHRS (29); sNEXTI: PRINT: PRIN 


T:GOTO319 :rem 50 
IFN<@ THEN PRINT:GOTO319 :rem 168 
A(J)=N:NEXTJ :гет 199 


CKSUM-AD-INT(AD/256)*256:FORI-1TO6:CK 
SUM=(CKSUM+A(I))AND255:NEXT  :rem 200 
PRINTCHR$ (18); :GOSUB570:PRINTCHR$(29) 
:rem 234 
IFN=CKSUMTHEN5 38 :гет 255 
PRINT: PRINT"LINE ENTERED WRONG": PRINT 
"RE-ENTER" : PRINT: GOSUB199@ : GOTO318 
29 :rem 129 
GOSUB 2ØØØ :rem 218 
FORI-1TO6:POKEAD-I-1,A(I):NEXT:rem 80 


AD=AD+6:IF AD<E THEN 310 :rem 212 
GOTO 710 :rem 108 
N-0:2-0 :rem 88 
PRINT" K+"; :rem 79 
СЕТА5:ІҒА%-""ТНЕМ581 :rem 95 


PRINTCHRS (20); :A-ASC(A$):IFA-130RA-44 


ОВА-32ТНЕМ670 :геп 229 
IFA»128THENN--A:RETURN :rem 137 
IFA«»20 THEN 630 :rem 10 


GOSUB69@ : IFI=LANDT=44THENN=-1: PRINT" 


{LEFT} (LEFT]";:GOTO690 :rem 172 
GOTO579 :rem 109 
ІҒА<48ОВА>57ТНЕМ580 :гет 105 
PRINTAS; :М=М*10+А-48 :rem 106 


IFN>255 THEN A-20:GOSUB1000:GOTO600 


:rem 229 
Z-Zt*1:1FZ«3THEN580 геш 71 
IFZ-ÜTHENGOSUB14209:GOTO579 :rem 114 
PRINT",";:RETURN :rem 240 


5%=РЕЕК (209) +256*РЕЕК(210)+РЕЕК(211) 
:rem 149 

РОБКІ=1ТОЗ:Т=РЕЕК(5%-І) :rem 68 

ІЕТ<>44АМрТ <> 58ТНЕМРОКЕЅ%-І,32:МЕХТ 


:гет 205 

PRINTLEFTS("Í3 LEFT}",I-1);:RETURN 
ігеп 7 
PRINT" {CLR} {RVS}*** SAVE ***{3 DOWN)" 
ау :гет 236 
INPUT" { DOWN} FILENAME";F$ :rem 228 


73@ 
74@ 
75@ 
76@ 
762 
763 
765 
766 
77@ 


775 
786 


781 


782 
790 


800 
810 


820 


830 


840 


841 


845 


850 
860 


865 
870 


886 


1000 
1001 
1002 
1003 


2000 
2001 


2022 
3000 


PRINT: PRINT"{2 DOWN}{RVS}T{OFF}APE OR 
{RVS}D{OFF}ISK: (T/D)" ^ :геп 228 
GETAS : IFA$ <>"T" ANDAS<>"D" THEN74@ 

гет 36 

DV=1-7* (А$="р") : IFDV=8THENFS$="0:"+FS 
ігеп 158 

T$=F$ : ZK=PEEK(53)+256* PEEK(54)-LEN(TS 
) : POKE782,ZK/256 trem 3 
POKE781, ZK-PEEK( 782) * 256: POKE78@, LEN( 
T$) :SYS65469 trem 199 
POKE78@, 1: POKE781, DV: POKE782,1:SYS654 
66 srem 69 
POKE254, S/256:POKE253,S-PEEK( 254) *256 
: POKE78Ø, 253 :rem 12 
POKE782, E/256:POKE781, E-PEEK( 782) *256 
:5Ү565496 ігеп 124 
IF(PEEK(783)AND1)OR(ST АМ0191)ТНЕМ780 
ігеп 111 
PRINT" { DOWN} DONE. " : END :rem 106 
PRINT" {DOWN} ERROR ON SAVE.{2 SPACES}T 
RY AGAIN." : IFDV=1THEN729 :гет 171 
OPEN15,8,15:INPUT#15,E1$,E2$:PRINTE1$ 


;E2$:CLOSEl15:GOTO720 :rem 193 
GOTO720 srem 115 
PRINT" {CLR} {RVS}*** LOAD ***(2 DOWN)" 

:rem 212 
INPUT"(2 DOWN] FILENAME";F$  :rem 244 


PRINT:PRINT"(2 DOWN}{RVS}T{OFF}APE OR 
{RVS}D{OFF}ISK: (T/D)" ^ :rem 227 
GETA$:IFA$«»"T"ANDAS«»"D"THEN820 

:rem 34 

DV=1-7* (А$="р") : IFDV=8THENFS="@:"+FS 
:rem 157 

TS=FS : ZK=PEEK(53)+256*PEEK(54)-LEN(TS 
): POKE782,ZK/256 :rem 2 
РОКЕ781,2К-РЕЕК(782)%256:РОКЕ780,ҺЕМ( 
Т5):5Ү565469 :rem 107 
РОКЕ780,1:РОКЕ781,рУ:РОКЕ782,1:5Ү5654 
66 :гет 70 
РОКЕ780,0:5Ү565493 :rem 11 
IF(PEEK(783)AND1)OR(ST AND191)THEN879 
ігеп 111 
PRINT" {DOWN} DONE." :GOTO319 :rem 96 
PRINT" { DOWN} ERROR ON LOAD.{2 SPACES}T 
RY AGAIN. {DOWN}" : LFDV=1THEN89@ OR 
ігеп 172 

OPEN15,8,15: INPUT#15,E1$,E2$:PRINTE1$ 


;E2$:CLOSE15:GOTO800 :rem 102 
REM BUZZER :rem 135 
POKE36878,15:POKE36874,190  :rem 206 
FORW-1TO300:NEXTW :rem 117 


POKE36878, 9: POKE36874, 9: RETURN 

:rem 74 
REM BELL SOUND :rem 78 
FORW=15TO@STEP-1 : POKE36878, W: POKE368 
76, 240:NEXTW :rem 22 
POKE36876, 0: RETURN :гет 119 
PRINTC$;"(RVS]NOT ZERO PAGE OR ROM": 
60Т01000 :rem 89 


BEFORE TYPING... 


Before typing in programs, please refer to "How 
To Туре COMPUTEY's Gazette Programs," “A 
Beginner's Guide To Typing In Programs," and 
"The Automatic Proofreader" that appear before 
the Program Listings. 
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TREASURE 652.97 


FROM FCP! 


24K RAM 


Single board for all 
RAM expansion uses 
only one slot 


RS-232 CARD | MOTHER BOARD! 


е True RS-232 signal lev- |» Adds 4 slots to the BI 
els provide maximum memory expansion L| 
compatibility with port 
peripheral devices 

Duel output connec- 

tors make installation 

a snap 


uses joystick, no expansions 


° Includes 3K of RAM H 


Low power consump- 
tion provides cool, 
reliable operation and 
extended product life 

Fully VIC-20 compati- 
ble 


TAXI 
DRIVER 


READING 
DEVELOPMENT 


$12.97 disk for 
4™ 


FUN 


LAND 


e Fully compatible with 
VIC-20 hardware and 
software 


* A socket for а 2764 
EPROM Modular 
power supply to re- M 
duce the load on your W 


VIC 
$69.64 


Available in 8K, 
24K configuration 


$199.24 


16K, 


Commodore 6 


$49.32 


ALL PRICES ARE FOB SANTA CLARA 


FALLImA3€ COMPUTER PRODUCTS, ІПС. 
2565 Scott Blvd., Santa Clara, CA 95050 
Phone (408) 748-9208 


uses paddles 


VIC 20 and Commodore 64 
are trademarks of 
Commodore Electronics Ltd. 


ARK 


ш 
Ш Gold-plated contact fingers for long-lasting solid connection 


INNOVATIONS, INC. 
18133 School St. ALL PRODUCTS ARE SUPPORTED BY A 2 YEAR WARRANTY! 
Box 155 DEALER DISTRIBUTOR INQUIRIES INVITED 
Amador City, ca 95601 VIC-20 is a trademark of Commodore Business Machines, Inc. 


(C)16.75 (D)20.50 
(С)11.66 (0)15.30 
Midway Campaign (С)11.66 
Nukewar (С)11.66 
Тас (0)28.00 
Computer 
Football 
Flying Ace 
Stocks and Bonds 
C. 


(C)11.66 (D)15.30 
(C)19.00 

(C) 14.60 

(С)14.60 (D) 18.25 
39.95 


Beach-Head 
Frantic Freddy 
Broderbund 
Choplifter 


(D) 26.95 
(D) 26.95 


(CT) 27.00 
Sea Fox (CT) 27.00 
Serpentine (CT) 27.00 
David's Midnight Magic (0) 27.00 
А.Е. 27.00 


Commodore 


Assembler 64 (D) 16.90 


Pet Emulator 

Screen Editor 

Bonus Pack 

CP/M 2,2 Operating 
System 

Super Expander VSP 

Easy Finance (1-5) 

Easy Calc 64 

The Manager 

Easy Script 

Easy Mail 64 

Easy Spell 64 

Word/Name Machine 

Intro to Basic 1 

Gortek & the Microchips 

Easy Lesson/ Easy Quiz 

Music Machine 

Codewriter 


ATARI, APPLE, VIC 20, T.I., SOFTWARE LISTS AVAILABLE 


| MPS 801 Printer 


COMMODORE 64 


(0129 50 
(0)43 00 
(0143 00 
D43 00 
(0143 00 
()43 00 
(Ом? 90 


Zork 1.2.3 
inventory Mgmt 
Payroll /Checkwriting 
Accts Payable 
Acts Receivable 
General Ledger 
Nevada Cobol 
Simons Basic. (019 50 Moonshuttie 
Super Expander (С716 90 Poo Yan 
Wizara of Wor (6ті21 50 Genesis 
Gort" 0 O Riley s Mine (0120 30 
Suspended Bruce Lee 27 00 
Starcross [ Epyx 
Deadline Temple о! Aphsai (0)27 00 
Magic Desk Upper Reaches of Apshar (D) 13 55 
Dragon s Den Curse of Ra (013.55 
Star Ranger Sword of Rargoal (0120 30 
Cont al Jumpman {D.C)27 00 
The Home Accountant 5075 Gateway to Apshar (0)27 00 
FCM (Form Letter) 76 50 Pitstop (0.67327 00 
Creative Software Eudy Arcade Classics 
Decision Maker Jumpman Jr 
Household Hes Software 
Finance (с\з 50 (0116 90 Hes Mon 64 
Home Inventory. 16110 15 (0113 50 Turtle Graphics 


Attack of the Mutant 
Camels 

Time Money Manager 

OmniWriter 

ОтпСас 

Type N Writer 

Synthesound 64 

Multiplan 

Hes Writer 64 

Gridrunner 

Benji Space Rescue 

Micro Prose 

Floyd o! the Jungle 

Hellcat Ace 

Solo Fight. 

Nato Commander 

Wingman 

Mig Alley Ace 

Sierra on Line 

Frogger 

New Jawbreaker 

Sammy Lightfoot 

Threshold 

Lunar Leeper 

B C Ost for Tires 


Loan Analyzer (C7120 45 
Moon Dust 

Astrobitz 
Trashman 
Save New York 
Datasott 


1C110 15 (013 50 
(C7123 65 
(C7123 65 
(C7123 65 
(CT23 65 


рс\2о 30 
1C б)20 30 
(0)27 00 


({Ст)2а 95 


(0.C123 65 
(0120 30 
(0/21 80 
10)21 80 
(0/21 80 
(0125 50 


2700 
1C)10 15 (0113 50 (сті27 00 


1c7)27 00 
(CT)40 60 


€ commodore 


Commodore 64 219.96 
1541 Disk Drive 239.95 
1530 datasette 61.30 
214.75 
1650 Automodern 89.95 
1702 Color Monitor 239.95 
1600 Modem 00 
RS 232 Interface 

3 Port Expander 

6 Port Expander 

64 Prog, Ref. Guide 


Diskettes 
BASF 5%" SSDD2Pak 5.50 
BASF Soft Box 10) 23.80 д 


Joysticks 
Pointmaster 
Pointmaster Pro 
Fire Controt 


Wico-Command Ctrl. 1959 <Иоаіа 


Wico ''Boss'" P 
20.75 Koala Touchtablet (0)79.95 


Adam Computer 
System 

dam Computer 
Module 


10.95 
18.55 


17.00 Wico Red Ball 


Terms and Ordering Information: 

То order call 1-800-527-8698 and send certified checks, money orders or personal checks (allow 2 
weeks to clear), or use your Visa, Master Card or American Express. Inside Texas call 
1-800-442-8717. Include $2 for postage and handling (C.O.D. orders add $1.65) UPS Blue Label $3, 
Canada $6 call for shipping charges on Hardware. Other countries include 10% for P & Н. All 
products factory sealed with manufacture's warranty. All returns require В.А. #. Prices subject to 
change without notice. Order desk hours: Mon-Fri 8-5, Sat 9-1 CST. 


Oil's Well 

Learning W/Leeper 

Sirus Software 

Turmoil 

Snake Byte 

Squish 'Em 

Repton 

Blade/Blackpoole 

Type Attack 

Spinnaker 

Face Maker 

Hey Diddle Diddle 

Kindercomp 

Snooper Troops 1 

Fraction Fever 

Amazing Thin 

Alphabet Zoo 

Kids on Keys 

Delta Drawing 

Up for Grabs 

Cosmic Life 

Trains 

Synapse 

Ft. Apocalypse 

Shamus 

Blue Max 

Dimension X 

Strategic Simulations 

Combat Leader 

Knights of the Desert 

Computer Baseball 

Eagles 

Ringside Seat 

Timeworks 

Dungeons of Algebra 
Dragons 

Robbers of the Lost 
Tomb 

Wall Street 

Money Manager 

Electronic Checkbook 

Word Pro3 + 


(021.80 


(0)27.00 
(D)27.00 
(D)23.65 
(D)27.00 
(D)27.00 
(0)27.00 


(D)23.65 


(D.C)19.10 


SofiWare Р.О. Вох 2511 


Warehouse ous) Longview, 
= (689 Æ Texas 75606 


For further information and inquires call 214-753-0485 


FOR ORDERS ONLY CALL TOLL FREE 
Outside Texas Inside Texas 


1-800-527-8698 1-800-442-8717 


Video-RF 
remodulator 
for Commodore 
VIC-20 and 64 


At last your TV set 
performs like a 
video monitor. 
Simply plugs 

into your 

video output. 


(rar 569.95 


Teena ages 


4321 Airwest S.E. 
Grand Rapids, MI 49508 
(616) 698-5000 


Dealer inquiries invited 


Numeric key pad 
for Commodore 
VIC-20 and 64 


With full 
cursor control 
and special 
function keys. 
No software 
interaction. 


4L 


UT 
[т-де [груз 
GF 


4321 Airwest S.E. 

Grand Rapids, MI 49508 б 
(616) 698-5000 

VISA and Mastercard accepted 


\ 


DISK DUPLICATOR 


FOR COMMODORE 
SINGLE DISK DRIVES 


(1540, 1541 and 2031 used with a 
VIC-20, commodore 64, CBM 4000 or 
CBM 8000 computer) 


DISK DUPLICATOR provides you a fast 
and easy way to make back-up copies of 
your precious, irreplaceable diskettes. En- 
joy the convenience of a dual disk drive 
without the expense. DISK DUPLICATORis 
100% MACHINE LANGUAGE, 100% FAST, 
and most importantly, 100% AFFORDABLE! 

Don't let an accident or mistake catch 
you without back-up copies of all your 
diskettes. ORDER “DISK DUPLICATOR” 
TODAY at the special introductory price of 
only $14.95 postage paid (check or money 
order only please). 


H&H ENTERPRISES DEPT. 123G 


5056 NORTH 41st STREET 
MILWAUKEE, WISCONSIN 53209 


CONVERSE WITH 
UR COMPUTER 


AT LAST! A FULL IMPLEMENTATION of the original ELIZA pro- 
gram is now available to run on your Commodore 64! 

Created at MIT in 1966, ELIZA has become the world's most cele- 
brated artificial intelligence demonstration program. ELIZA is a non- 
directive psychotherapist who analyzes each statement as you type 
itin and then responds with her own comment or question - and her. 
remarks are often amazingly appropriate! 

Designed to run on alarge mainframe, ELIZA has never before been 
available to personal computer users except in greatly stripped 
down versions lacking the sophistication which made the original 
program so fascinating 


Now, our new Commodore 64 version possessing the FULL power 
and range of expression of the original is being offered at the intro- 
ductory price of only $25, And if you want to find out how she does 
it (or teach her to do more) we will include the complete SOURCE 
PROGRAM for only $20 additional. 
Order your copy of ELIZA today and you'll never again wonder how 
to respond when you hear someone say, "Okay, let's see what this. 
‘computer of yours can actually до!" 
ELIZA IS AVAILABLE IN THE FOLLOWING FORMATS: 
(Please specify Disk or Cassette) 
1. Protected Version 
(Protected Version can be run but not listed or modified) 
2.Un-protected Commodore 64 BASIC Source Version 
(Source Version can be listed and modified as well as run) 
Both versions include a six page user manual. 
Please add $2.00 shipping and handling to all orders 
(California residents please add 6% sales tax) 


ARTIFICIAL INTELLIGENCE RESEARCH GROUP 
921 North La Jolla Avenue, Dept. G 
mm Los Angeles, CA 90046 
VISA (213)656-7368 (213) 654-2214 
MC, VISA and checks accepted 


EXPAND YOUR 
VIC 20° MEMORY! 


Affordable Mem- 
ory Expander lets 
you add 2K RAM 
Circuits as your 
needs increase 
(Up to 35K.) 
Mother Board with Instructions 
Mother Board & Sockets with Instructions .... 55495 
Complete Kit with Cabinet (35K). . 159° 
Assembled & Tested Expander (35K) 
Each Add'l 2K Chip (Up to 280K paged RAM) 
(1 Shipping) 
Send Check or Money Order to 
PERIPHERAL DEVELOPMENT 
Р. О. Box 28247 
St. Louis, MO 63132 


(Add $5 S/H Missouri residence add 5%% tax) 
Prices subject to change without notice 


Vic 20 is a trademark of Commodore Electronics, Ltd. 


HOMEWORK HELPER 
3-6 GRADE 
ARITHMETIC 


Child enters problems from his 
text book and is guided through 
the entire process. Every step is 
displayed on the screen including 
carry digits. Help feature and color 
screens make math fun. Addition, 
subtraction, multiplication and 
division. 


VIC 20 or C64 TAPE 
Send check or money order for $11.00. 


DEB HOMEWARES 
4044 Westlake Dr. 
Cortland, Ohio 44410 


In an abandoned corner of desert lie 
ancient, unsolved mysteries. 

Danger, death and forgotten treasure 
await you in 


LAIR OF THE LIZARDMEN 
text adventure for C-64 or VIC-20 
(VIC requires 8k expansion) 
Specify disk or tape, VIC or 64 


$15.00 disk or саре. Add $1 shipping. 
California residents add 64% tax. 


WEREWOLF SOFTWARE 
109 Minna Street 
Suite 353 
San Francisco, CA 94105 


LEROY'S CHEATSHEET " 


ONLY $ 3.95 еа 


junction key label 
1 additional aids in center cutout 


Keyboard overlays 


Programmer's Aid’ Graphic printer (1815 a 152s) 
Містоп! Paper Clip 
Super Expander! Script 64 
lesmon HES Writer? 
Calc Result (avanca) Wordpro 3 plus 
Term 641 Easy Script’ 


Quick Brown Fox o Basic cum 


Send check or money order plus 51,00 (postage and handing) 
PA residents add 6 % sales tax 


Name. 


Address. 


Soft Cellars 


PRESENTS 
GAMES AND UTILITIES FOR THE VIC20 & Cod 


оп cassette or disk 
Digital Derby—Pari-mutuel betting with galloping 
graphics and sound 
Unex. Vic/C64 $1495 


igh Risk—A possible mission fraught with audio 
visual & mental gymnastics. Joystick required 
„ Unex. Vic only 51995 
Super Cipher—Decipher color or symbol codes, Select 
length and time. Infinite levels of difficulty. | or 2 
players 
Unex. Vic/Co4 $12.95 
Jrogram Cellar—Pixel-by-pixel movement techniques 
in BASIC. Auto renumber delete. Easy entry BASIC 
program lines. Sub-routine library 
Vic/Co4 $1495 
Data Cellar—Over 600 records per disk Random ac 
cess. Menu prompted. Alpha numeric sorts. Easily 
tailored to your needs 
Сөл only. Disk drive required $19.95 
SEND CHECK OR MONEY ORDER TO: 
SOFT CELLARS, INC. 


828 RUE ROYAL SUITE 535 
NEW ORLEANS, LA. 70116 


ADD 52.00 for disk version 
Vic/Co4 are Commodore trademarks 


SPRITE EDITOR/LIBRARIAN 


* CREATE SPRITES On a 24x21 grid, single or 

multi-color watch as Sprite 

is built to normal size 

Normally or with Sprite 

Librarian 

With Sprite Librarian and 

then do a load or save 

Edit old Sprite to create 

new one 

For easy use 

Invert, reverse and 

rotate 

* APPPEND SPRITES To your own program 

* UPGRADE Instructions sent FREE 
TO DISK on request to upgrade 

from tape to disk 


* SAVE SPRITE 
* LIST SPRITES 
* EDIT SPRITES 


* MENU DRIVEN 
* TURN SPRITES 


* JOYSTICKS 
OPTIONAL BC SOFTWARE PRODUCTS 
MID CITY, PO BOX 337 


DAYTON, OHIO 45402 


TAPE — $19.95/DISK — $22.95 
POSTAGE $1.00 


Systems In Boo 


SOFTWARE DEVELOPMENT AND DISTRIBUTION ДА 


— PRESENTS ——— 


THE FIVE ADVENTURES THAT WILL DEMAND QUICK 
REFLEXES OF THE MIND. NOT THE HAND! 


* ROCKET V-2 only $15.95 
* DR. GEARDORF'S LASER only $15.95 
* THE ISLES OF SSENKRAD 

(Part 1) only $15.95 
* BENEATH THE ISLES OF 
only $15.95 
only $18.95 


SSENKRAD (Part 2) 


* SAND SCREAM 
(Graphics for the C-64 that you must see) 


We Accept Mastercard/Visa, Certified Check, М.0., 
Allow 2 wks. for Personal Checks. 

VIC-20 Requires Minimum 8K Expansion (ATARI, TRS-80 
Versions Coming Soon) 

Add $2.00 for Disk, Add $1.50 for Postage/Handling 
RUSH ORDER TO: SYSTEMS TO BOOT • 2109 S. 
Fieldcrest • P.O. Box 4106 • Wichita, Kansas 67204 


"ATARI, Commodore, TRS-80 are all registered trademarks re- 
spectively 
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th DISK 
and PRINTER 


8K VIC 20 with TAPE 


The DATABASE that grows with you from 
8K VIC 20™ with TAPE to C64™ with DISK 
and PRINTER. It will create a MASTER 
INDEX of up to 900 programs (VIC less) 
from Disk which can be expanded with 
comments. 

The most VERSATILE and USEFUL 
program you will ever buy, it can be used 
for anything from Recipe File to General 
Ledger to Mailing List. 

FREE DISK UTILITY with disk version. 

$34.95 specity TAPE or DISK 

Sky Shepard Software 

PO. Box 49, St. Marys, IA 50241 

15 Yrs. DP Experience 
515-297-2289 


VIC 20 and C64 are trademarks of Commodore Electronics. 


MICRO-MATE " 


top accessories to or- 
ganize and integrate 
your personal com- 
puter system. 

Don't get stuck with a 
cheap wire stand. 
Avoid the static that 
plastic can generate. 
MICRO-MATE™ ac- 
cessories are heavy 
gauge aluminum. 
Standard and ex. 
panded units le 
forward providing 
access and storage 
for plug-in devices. 
Expanded unit has 
multiple outlets and 
switch convenience. 


STANDARD (Base/Monitor Stand) ... 
EXPANDED (Elec. Base/Monitor Stand) 
PRINTER STAND 

DISC DRIVE STANI 

MONITOR STAND .. 

(plus $4.00 shipping and handling) 

Call now toll free 1-800-824-7888 Ask for 
operator 319 MASTERCARD, VISA OR C.O.D. 


ту DEVELOP YOUR CHILD'S 
SPELLING & MATH SKILLS! 


Make the drudgery of learning fun and easy 
with Spelling Tutor II and Math Tutor Il. A uni- 
que way to advance your child's ability in 
learning, 


MATH TUTOR II 
LANGUAGE TUTOR II 
SPELLING TUTOR II 


* Menu Driven . * Data Base File 
* Create Student's Spelling 

or Language Lessons 
* Addition/Subtraction 
* Multiplication/Division vel 
+ Tape $16.95 per program 
* Disk $18.95 per program 


Expansion Unit Unnecessary | Specify VIC-20 or C-64 
Also available, MSD Super Floppy Disk 
Full Line of MSD Products 
— Send íor FREE Catalog — 


VIC-20 


CHECK OR MONEY ORDER 
IDENTS ADD 5% SALES TAX 


SPH SOFTWARE 
R.R. #1 
E. PEORIA, IL. 61611 


VIC-20 / C-64 USERS 
CARTRIDGE BACK-UP 
e SYSTEM IS AN EASY TO USE PROGRAM 
AND A HIGH QUALITY CARTRIDGE INTER- 
FACE BOARD 
€ BACK-UP YOUR CARTRIDGES ONTO 
TAPE OR DISK 
€ ЗК RAM (MIN) REQUIRED FOR VIC-20, 
ON BOARD FOR C-64 
VIC-20:$49.95 POST PAID 
C-64:$89.95 POST PAID 
CASSETTE BACK-UP. 
Ф EASY TO USE PROGRAMS 
e BACK-UP ANY CASSETTE ТАРЕ ONTO 
TAPE 
® REQUIRES NO USER MEMORY 
VIC-20:$14.95 POST PAID 
С-64:514.95 POST PAID 
NOW CARRYING OTHER EQUIPMENT 
PLEASE CALL OR WRITE FOR PRICE LIST 
OF COMMODORE COMPATIBLE EQUIPMENT 
AND SOFTWARE 
VISA/MASTERCARD ORDERS: 
PHONE (215) 269-4803 
MAIL CHECK OR MONEY ORDER TO 
E-M TECHNOLOGIES 
P.O. BOX 185 
DOWNINGTOWN, PA 19335 
РА. RESIDENTS ADD 6% 
6 MONTH REPLACEMENT GUARANTEE 


DISAPPOINTED 


in the scarcity of truly useful home application programs? Finally, a 
program that you will want to USE every week to save you time and 
money without constant updating 


SHOPPING MANAGER 
aSystem for Grocery Shopping 


The System Includes two programs and a supermarket datafile. 1 
SHOPPING MANAGER, is used on a regular basis. It displays the 
contents of YOUR supermarket to you, an aisle at a time, for your 
selection. Use the function keys to easily note coupon or sale items 
or add personal comments to your list. The final printout is a 
shopping list, arranged aisle by aisle, starting at the store entrance 
and finishing at the checkout line. It will cut your time in the store in 
half, eliminate impulse buying and return trips for forgotten items. 
Мо тоге coupon searches in the middle of an aisle. 2. MARKET 
MAPPER (2 program in VIC-20), is a super editing package that 
painlessly turns the SAMPLE market file into an accurate map of 
YOUR supermarket. Display nine editing options, including printer 
dump of the file, make anew store, edit existing, rearrange and 
merge aisles, and copy files between disk and tape in any order, 
(We hate updating databases) 

3. SAMPLE, the supermarket database, contains many aisles and 
over 1100 items, The SAMPLE aisles are building blocks that you 
can merge and rearrange to build a model of your own favorite 
store, (It can also be used without modification) 


REQUIRES: C-64 or VIC-20 (w/16K expansion): ТУ. ог 
Monitor; Tape Datassette or Disk Drive: 
and Printer, 


US $2955 + $1.50 shipping (Canada & UK at Conv. Rate + 5300 
shipping) (TV users can add $7.50 for C64 hires color jack 
OPTIONAL) 


Send check or money order to. 
‘SERENDIPITY SOFTWARE 
4703 Country Club Dr. 
Pittsburgh, Pa, 15236 
412-882-4655 


(specify C-64 or V-20; Tape or Disk) 
PÀ residents add 696 tax 
(color jack also sold separately) 


Dealer inquiries invited 


NEW C-64 
SAIL TO AMERICA 


A totally new computer experience 


Parents Tell your kids Cadmean's The Voyage of 
the Mayflower has all the color, sound and excite- 
ment they love. Challenge the mighty Atlantic, 
defy its roaring storms and bring your passengers 
safely to the new world. There's never been an 
experience like it. Anywhere. 


Kids Tell your parents The Voyage of the May- 
flower is a terrific learning adventure. Recreate the 
hazards and drama of the first Pilgrim voyage. 
Learn about sailing strategy, weather, navigation 
and history. The more you know the more fun it is. 
Every level is a unique experience whether you're 
6 or 60. Unforgettable. 
Families Pit your imagination against the world аз 
the Pilgrims knew it. Share the exciting journey to 
a new life іп a new land. Risk the danger and learn 
together how the Mayflower sailed into history on 
the courage of those few who dared. 
All this and a FREE 11 x 16 Poster for only $29 

School and dealer inquiries welcomed 

DISK ONLY 

ORDER NOW. FREE shipping for MasterCard and 
Visa orders. Call (313) 994-0845 Day or Night. C.O.D., 
checks, money orders add $3.00 shipping. 
CADMEAN CORP., 309 Koch, Ann Arbor, М! 48103 


VISA 


ulla OPEN SALE! ® 


finally it's here: a genuine 
discount wholesale computer 
supply company. Quality 
guaranteed sales & service, 
for the lowest prices anywhere. 


DATA РУТ 


314-423-3469 


p.0. box 8467, st. louis, missouri 63132 
Special Script 64 Dictionary Disk *15.95 


WE SELL EVERYTHING FOR LESS 
Programs on 


FR ЕЕ; Tape ог Disk 


with orders of $75.00 or more. 


Want A Greener Green Thumb? 
Shake Hands with PLANTIN’ PAL 


If you enjoy Gardening, you’ll love 
PLANTIN' PAL. 

With PLANTIN' PAL you can. 
* Take your custom-designed layout to your garden 
* Plant the right amount of each vegetable for your needs 
* Identify and beat bugs & diseases 
* Create your individual planting & fertilizing schedule 
* And so much more 

Get friendly with Plantin’ Pal today. 

On disk for Commodore 64. 

Printer optional but preferred. 
Visa $2995 [-—-] 
aa ( j 
To order call (612)925-2591 or write: 


Home & Hobby Software 
4936 Morgan Ave. S., Minneapolis, MN 55409 


BASIC-PLUS- 


FOR COMMODORE - 64 


**14 POWERFUL SYSTEM COMMANDS** 
*Make Basic Programming Faster & Easier* 
Line Numbering: Formatting: 
*AUTO (Incr) *CRUNCH 
*RENUM (Old, New, Incr) *UNCRUNCH 
Program Structure: Search/List: 
"*APPEND' Program’, d *ANALYSE 
"DELETE m-n *FIND/String/ 
“010 “ВЕЕ m-n 
Function-Key Definition/Control: 
"FSET Fmn-'Commands' *FLIST m-n 
FSAVE'Table’, d FLOAD' Table’, d 
**5k Program, Written in Machine Language: 
"Loads in 15 Seconds (From Diskette) 
*Can Co-Exist With DOS Wedge 
**Ultra-Fast (Completely Renumbers 
500-Line Program in 5 Seconds!!!) 
**FIND & REF Commands Practicly Eliminate 
Manual Program Scanning For Usage Info 
**64 Frequently Used Command Sequences Can Be 
Defined & Accessed Via TWO-TOUCH Function-Key 
Selection (A Useful Function Table Is Supplied) 
**CRUNCH Can Improve Рат Load-Time And Space 
Requirements As Much As 15%!!! 
**Package Also Includes A Utility Рат To Copy 
Machine Language Pgm Files 
$21.95 — Send Check Or Money Order To: 
D. Burnett, 4817 Clipping Ct.. Louisville, Ky., 40222 
(502-228-0341). Please Allow 2-3 Weeks For Delivery. 


vic 20 сомморовЕ 64 
UMI / VIC 20 


Spiders of Mars [C] $29.95 

Meteor Run ІС! $29.95 

Amok ITI $16.95 

Sat & Met ІС) $29.95 
UMI / New for C- 64 

Pennant Drive $29.95 


2 player baseball strategy 
Motor Mania . $29.95 
hi-performance racing game 
Fuego $29.95 
fight fire- throwing drones 
to save the space crew 
TOTL SOFTWARE 
TOTL Text 2.6 [D] $34.00 
TOTL Label 2.6 [D] $20.00 


Send cash, check or money order to: 
ARIES MARKETING CO. 
РО. Box 4196 
4200 Shannon Drive 
Baltimore, Maryland 21205 


Md. residents add 5% state sales tax 


COMMODORE 
ATARI/T.I. 


PROTECTIVE COVERS $5.99 


Atari CX 2600 
Commodore Vic 20/64 
Texas Instruments 99/4 

also 
Atari Backpack $7.99 


C-64 SOFTWARE (cartridges) 


Robbers of the Lost Tomb (Timeworks) . . 
Moondust (Creative) . . SERRA 
Save New York (Creative) ............ $23.95 
C-64 Audio/Video Cable (Audio 

input/output & video output) . 


$18.95 


SLM COMPUTER PRODU 
1472 Lou Dillon Ln. #2 
Santa Barbara, Ca. 93103 


Add $1.50 Shipping/Handling—Ca. res 6% tax 


ir 


К VIC 20™ 
KIDBIT SOFTWARE 
PRESENTS: 
THE PLAYSCHOOL 

TAPES 

Pre-school learning programs, on 

cassettes for the unexpanded VIC 

C) WORMSICAL COUNT 

O SAME/NOT SAME GAME 

O SMALL WIZARD/CAPITAL WIZARD 

O ALPHA-BEE SEQUENCE 

O $7.95 ea. 

O $24.95 all 4 


O $12.95 for 2 
О FREE BROCHURE 
CA residents add 612% sales tax. 


Postage & Handling Add $1.00 
Personal check or money order accepted. 


Kidbit Software 
7001 Sunkist Drive 
Oakland, CA 94605 

(415) 638-1243 


EPROM PROGRAMMER 


FOR 
PET - COMMODORE-64 - VIC-20 
DELUXE-PROGRAMS 


2116 thru 27128 U uu 
2516 thru 2564 

MENU driven DISK sftwr $99.50* 

incl. MACH. LANG. MONITOR and FILE 
MANAGEMENT. COMMANDS include: 
read, verify, block select, program, 
load, save,etc +MONITOR COMMANDS 
L.I.F.SOCKETS for easy operation. 
device connects to CPU's USER PORT. 
software to operate ALL CPU's incl. 


ECONOMY-2716-64 
read.pgm, & ver. ONLY 
TE онат when 
editing &file storage 
ARE NOT needed-Lif incl. $59. 50: 


(215)256-6933 LR (101290:0133 


SAN FRANCISCO AREA 
COMMODORE USERS GROUP 


SPHINX 


FET-VIC 20-C&4 
MEETINGS CLASSES 
NEWSLETTER 
БЕШЕ 
РОВІ ІС DOMAIN SOFTWARE 


SEND $2 for CATALOG 
JOIN @ $24 
ANNUAL MEMBERSHIF FEE 


(415) 527-9286 


267 ARLINGTON AVENUE 
KENSINGTON, CA 94707 


BULLETIN BOARD 


ты 
‘PUBLIC DOMAIN 
— SOFTWARE — 
Supporting all COMMODORE computers 
Written by users, for users 
Ж GAMES UTILITIES EDUCATIONAL Ж 
VIC 20" 
collection #1 - collection #2 — collection #3 
collection #4 — collection #5 — collection #6 
70+ programs per collection — Tape/Disk — $10.00 
COMMODORE 64" 
64 collection #1 — 64 collection £2 — 64 collection #3 
64 collection #4 — 64 collection #5 
25+ programs per collection — Tape/Disk — $10.00 


PET? / CBM? 
5 Utility — Tapes/Disks — $10.00 each 
11 Game — Tapes/Disks — $10.00 each 


6 Educational — Tapes/Disks — $10.00 each 
DINSET™: Reset Switch 
Works on Vic 20 or Commodore 64 - $5.00 
All prices include shipping and handling. 


CHECK, MONEY ORDERS, 
VISA and MASTERCARD accepted. 


For A Free Catalog Write: 
Public Domain, Inc. 
5025 S. Rangeline Rd., W. Milton, OH 45383 
10:00 a.m. - 5:00 p.m. EST — Mon. thru Fri. 

5638 or (513) 339-1725 
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Five Slot Expansion Interface 
for the C-64™ 


i 

i 
The CARDBOARD/5 
(CB/5) is an enclosed 
five slot, fully switch 
selectable, expansion 
interface for the 
Commodore 64™. This 
quality product allows the 
user to switch select any 
cartridge slot or 
combination of cartridge 
slots. Twenty-two color 
coded light emitting 
diodes give status 
indication. Each slot has 
four LEDs and two toggle 
switches for indication 
and control. Two master 
toggle switches allow the 
user to manually override 
any situation. 


All Cardco products are 
individually tested to 
insure quality and 
reliability. 


313 Mathewson • Wichita, Kansas 67214 • (316) 267-6525 


Commodore " is a registered trademark of Commodore Business Systems, Inc. 


* full support under the 
board to prevent 
flexing 

* full plastic enclosure to 
insure safety 

е fused to protect your 
computer 

* convenient reset button 

e CARDCO, Inc.'s 
exclusive Lifetime 
Guarantee 
Manufacturer's Suggested 
Price: $79.95 


Some of the features of the 

CARDBOARD/5 are: 

е high quality glass/epoxy 
circuit board 

е gold plated contacts 

e logic lines are switched by 
solid state IC switches 

e full LED status indication 

е convenient toggle switches 


See a complete line of American 
made Cardco Products ata 
computer store near you, today. 


cardco, inc. 
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INDISPENSABLE 


SOFT WARE 


For Your Most Important Computing Needs 
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EasyScript 64 EasySpell 64 EasyCalc 64 The Manager SuperE xpander 64 
Displays 764 lines x 240 20,000 word Master Multiple electronic spread- Sophisticated database 21 special commands. 
characters. Prints to 130 Dictionary and automatic sheet with color bar graph system with 4 built-in appli- Combine text with high 
columns. Works with spelling checker. Works feature. 63 columns x cations, or design your own. resolution graphics. Music 
EasySpell 64. with EasyScript 64. 254 rows. and game sounds. 


С commociore 


Easy Finance I— 


Easy Finance li— 


с е 


Easy Finance 11— 


Text, formulas, graphics. 


(cor 


Easy Finance IV — 


Easy Finance V— 


Loan Analysis Basic Investment Advanced Business Statistics and 
12 loan functions. Bar Analysis Investment Management Forecasting 
graph forecasting as well 16 stock investment Analysis 21 business management Assess present/future 
as calculation. functions. Investment 16 capital investment features. Bar graphs. sales trends with 9 
bar graph. functions. Bar graphs. maies and forecasting 
functions. 


Accounts Payable/ Accounts а General Ledger Inventory Payroll 

Checkwri Receivable/Billing 8 general ledger options. Management 24 different payroll 

11 functions. 11 billing functions. Printed Custom income statement, 1000 inventory items. functions. Integrated with 
billing. 50 vendors/disk. statements. trial balances, reports. Full reports. G/L system. 


= commodore 


COMPUTERS 


First In Quality Software 


Made with love’ by: 


<EIROMAG- 


Our goal iS to preserve classic video дате magazines so that 
they аге по lost permanently: 


People interested in helping Out in any capacity; 
please visit us at retromags-com: 


No profit is made from these scans, nor do we offer anything 
available from) the publishers themselves: 


Ifyou come across anyone Selling releases from 
this Site please do not support them and do let us know: 


Thank you! 


